SEPTEMBRE-OCTOBRE 1985 


HISTOIRE DES 
LANGAGES 


Les premiers programmes 
de l'humanité 


BASIC ET MATHS 
Vingi machines comparées 


ASSEMBLEUR EN 
TROIS 7 


AMSTRAD 


LES JEUX DE LIST 


Des problèmes 
informatiques et 
leur solution 


: LA BOITE À MALICES 


“| Des ficelles et des 
à programmes 


Belgique : 154 FB - Canada : 2.95$C - Suisse : 6 FS 


LE SYSTEME EXL 100 


Simplicité, modularité, évolutivité sont 
les 3 mots-clés du Système EXL 100. 


UNE UNITE CENTRALE EXPLOSIVE 

Une architecture bi-processeurs 

e Les micro-processeurs: 2 processeurs 8 bits de 
la famille TMS 7000 è 

e Le contrôleur de visualisation: exceptionnelle qualité 
graphique 80.000 points 

e Le synthétiseur de parole: l'EXL 100 est équipé d'un 
synthétiseur de parole de très haute qualité: le 
TMS 5220 C 

e Les émetteurs à infrarouge: la commande sans 
fils, par infrarouges du clavier et des manettes de 
jeu 

e La mémoire statique 

e Le prédiffusé 

e L'alimentation intégrée 

Le junior: pour faire ses gammes 2-690 F TTC 

Ce clavier est conçu pour offrir, sous un encombre- 

ment très réduit, toutes les fonctions d'un clavier 

professionnel. Il est particulièrement étudié pour les 

mains d'enfants et pour pouvoir s'intégrer dans un 

environnement familial. 

La commande de l'ordinateur EXL 100 par liaison 

infrarouge n’est pas un gadget. Elle permet d'utiliser 

l'EXL 100 sans fatigue pour les yeux, en se tenant 

à la distance idéale du téléviseur conseillée par son 

fabricant. 

Le pro: pour le travail sérieux : 295 F TTC 

Ce clavier est destiné aux fanas de la programmation 

et pour les utilisations type traitement de texte. 


DES ACCESSOIRES ADAPTES A TOUTES LES 
UTILISATIONS 
e Les cartouches ROM 


e Le lecteur de cassettes (Data Recorder) 295 F TTC 


e Les manettes en option au prix de 250 F TTC 
e EXELDRUMS (Boite à rythmes) 


DES ACCESSOIRES SUPER PROFESSIONNELS 
L’'imprimante EXL 80 

C'est une petite merveille de technologie 100% fran- 
çaise conçue et réalisé par CGCT et EURO-TERMINAL. 
Elle allie les plus hautes performances à une grande 
simplicité mécanique, donc à une grande robustesse. 
Silencieuse, économique, peu encombrante, c'est la 
Championne de la copie d'écran. 3,500 F TTC 
Le moniteur monochrome 

- Ecran vert 12 pouces à haute définition (Résolution 
moyenne: 900 lignes). Lecture agréable et sans fatigue. 
- Connecteur Péritélévision incorporé. 

- Encombrement limité (29x37x34 cm) faible poids 
(6,8 kg). Facilement transportable. 

Exelmémoire (CMOS RAM): la mémoire-clé 
tacilement transportable, beaucoup plus souple et 
rapide d'emploi qu'une cassette-audio, l'Exelmémoire 
peut constituer un véritable “cahier de classe” pour 
les élèves de l’âge de l'informatique, permettant de 
programmer chez soi, puis d'emmener son programme 
en classe, chez des amis... 


Elle peut également jouer le rôle d’une extension-mémoire 
de 16 Ko et constitue le complément indispensable de 
l'Exelmodem pour accéder aux fonctions de téléchargement 


de logiciels. 590 F TTC 


EXELVISION, UN SYSTEME OUVERT SUR LE MONDE 
Exelmodem 

Connecté à votre ligne téléphonique, l'Exelmodem permet 
de transformer l'EXL 100 en un véritable MINITEL-couleur. 
Il peut également être utilisé pour communiquer avec un 
autre EXL 100. 

De plus, il possède les fonctions de numérotation automati- 
que et de détection de sonnerie; en cas d'absence de votre 
part, un correspondant peut laisser un message écrit, don- 
nant ainsi à l'EXL 100 une fonction de télex. 


Avec Exelmodem et le réseau Antiope, l'ordinateur prend une 
autre dimension et vous donne accès à l'univers de la com- 
munication tel qu'il sera à la fin du siècle. 

Avec Exelmodem, votre EXL 100 accède, par simple appel 
téléphonique, à toutes les structures d'information du système 
Vidéotex français créé pour le Minitel. 


X Prix au 20.03.1985 valables dans la limite des stocks disponibles et sauf erreur d'impression. 
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>*# Configuration de base comprenant: 


eUne unité centrale de 72 K/Octets, 32 K RAM utiles ex 
tensibles à 48,72 K utiles et plus 

sUn-moniteur monochrome à très haute définition gra- 
phique 

eUn clavier JUNIOR, 61 caractères, AZERTY... 

.-eSynthèse de la parole 4 

ePrise Péritel incorporée ‘ 

logiciel EXELBASIC de. æ K RON 
EN CADEAU: 

Cours d'initiation et d'autotormatl 


DOM LISTE DES POINTS DE VENTE : DOMICA 


01000 BOURG EN BRESSE - DOMICA - 60, rue Charles Robin Tél. (74) 22.42.77 


Eee 


01100 OYONNAX - DOMICA - 38, rue Brillat Savarin Tél. (74) 73.62.55 


SSL 07100 ANNONAY - DOMICA - 13, rue de Tournon Tél. (75) 67.67.58 


26000 VALENCE - DOMICA - 215, avenue Victor Hugo Tél. (75) 41.14.75 


3000 NIMES - DOMICA - 134, rue d'Avignon Tél. (66) 27.28.29 


33000 BORDEAUX - CIESO - 3, rue Capdeville Tél. (56) 44.51.22 


38000 GRENOBLE - DOM ALPES - 45, avenue Alsace Lorraine Tél. (76) 87.16.26 


38000 GRENOBLE - DOM ALPES - 6, rue Ampère Tél. (76) 49.65.65 


63000 CLERMONT FERRAND - DOMICA - 53, rue Bonnabaud Tél. (73) 35.51.40 


67000 STRASBOURG - DOM ALSACE - 5, rue des Frères Tél. (88) 35.76.16 


69002 LYON - DOM - 63, Passage de l’Argue Tél. (7) 837.76.14 


69007 LYON - DOM - 274, rue de Créqui Tél. (7) 872.49.52 


71100 CHALONS/SAONE-MICROCAL DOMICA-22,quai de la Poteme Tél.(85)48.98.57 


Le système Antiope utilise les ondes hertziennes (les mêmes PAOOPAVIGNON BOMIGARS NUE FannEtens 1er 190) 8353:re 
que celles de votre téléviseur et des liaisons satellites) 
dont les signaux sont décodés pour vous transmettre des 
informations. 


Avec des 2 systèmes, Exelvision créé un lien direct ee 


BON DE COMMANDE 


À compléter ou à recopier et à retourner à: 
Sté DOM - 274, rue de Créqui 69007 LYON Tél. (7) 872.49.52 


Nom, Prénom. 


l'informatique et les techniques de communication 


vous ouvre le monde. 1.090 F TTC 


Exelbasic 

(Un Basic de 32 K de ROM). Il offre toutes les fonctions l Adeé 
standards des meilleurs Basics actuels avec, en plus, une 

extrême facilité d'utilisation et une très grande précision de I 


calcul. Un grand magazine informatique, dans un test portant 

sur les meilleurs matériels actuels, a désigné l'EXL 100 Ville Code Postal LL LI I] 
comme le plus précis, grâce à un mode de calcul limitant | | 

les erreurs d'arrondi et portant sur 12 chiffres après la ; Vous passe commande d'un EXL 100, configuration de base 
virgule (dont 10 affichés). 500 F TTC au prix de: 3.250 F TTC. Mode de règlement: 

Logiciels 2 Chèque à la commande 


Catalogue sur demande. Plus de 60 nouveaux titres de C1] Contre remboursement (coût supplémentaire 53 F) 


| 69 F à 190 F TIC. Signature 
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1 COUVERTURE 

Qui aurait soupçonné, il y a 
seulement dix ans, les 
immenses perspectives 
auxquelles donneraient accès 
ces objets de plastique tout 
bêtes que sont les 

disquettes ? L'illustration de 
notre dernière couverture 

est signée Dominique 

Le Nouaille. 


1 1 LA GAZETTE 


DE LIST 


2 ) COUP D'ŒIL 


DE LIST 

Avec Éditeur de dessins, 
distribué par IDC, le Dai 

— réputé depuis longtemps 
pour ses capacités 
graphiques — passe à la 
vitesse supérieure. 


7 6 L'ASSEMBLEUR 


19 DU TO 7 ET DU TO 7/70 
UNE BONNE Pas de programmation en 
RÉSOLUTION POUR LES Assembleur si l'on ignore les 
TRIANGLES DE TOUT différents modes d'adressage 
ACABIT du microprocesseur. Exemple 


Quand aucune courbe 
n'intervient, tout problème 
de géométrie peut se réduire 
à l'étude des triangles qui 
composent la figure de 
départ (programme pour ZX 
Spectrum). 


2 2 LA RÉCRÉ 


DE LIST 
Exercez votre logique et 
votre ingéniosité pour 
résoudre quelques problèmes 
simples en apparence. Qui 
sait si vous ne parviendrez 
pas à une solution meilleure 
que toutes les autres ? 


2 L] RÉPONSES AUX 


CASSE-TÊTE DU NUMÉRO 
PRÉCÉDENT 


à l'appui, le comportement 
du 6809. 


3 0 PASCAL, SUIVEZ 


LA PROCÉDURE 
Il ne faut pas moins de 
quatre modes de saisie 
pour lire, en Pascal, les 
symboles ASCII. 


3 4 PASSEZ-MOI 


L'EXPRESSION 

Comment le Basic fait ses 
choux gras des parenthèses 
et des quatre opérations. 
Une histoire de piles 

et de priorités. 
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3 / À LA LIMITE, 


TOUT CONVERGE 
Certaines suites 
mathématiques ne 
S'approchent de leur limite 
qu'après longtemps. La 
méthode d'Euler fait alors 
gagner beaucoup de temps. 


4 0 SOUS LES 


COULEURS DE L'AMSTRAD 
Le manuel de l'Amstrad ne 
dit presque rien sur le mode 
«encre » de la machine. Il est 
pourtant simple à utiliser et 
permet des effets variés. 


42 HISTOIRE DE LA 


PROGRAMMATION 

Un jour de juin 1833, 
l'inventeur des machines à 
différences, Charles Babbage 
rencontra la fille du poète 
Byron, Ada de Lovelace. C'est 
de cette époque sans doute 
que datent les premiers 
programmes de l'histoire 

de l'humanité. 


4 6 LA ROUTINE 


MÈNE À L'ERREUR 

Quand le Canon X-07 signale 
une erreur de syntaxe, on 
aimerait bien qu'il liste 
aussitôt la ligne fautive. 
Aidez-vous de quelques 
instructions en langage- 
machine pour déboguer vos 
programmes Basic. 


48 VOTRE BASIC ET 


LA BOSSE DES MATHS 

Toutes les machines n'ont | 

pas les mêmes capacités | 

mathématiques. Intervalles | 

de calculs, précision, 

fonctions, bien des choses | 

distinguent les vingt 

ordinateurs que nous | 

avons testés, 
| 


à 1 DES LISTES 


COMME VOUS LES AIMEZ 
Avec Vic, Pet ou C. 64, en 
désappointant les pointeurs, 
on obtient des mises en page 
sur mesure pour toutes les 
listes de programmes. 


] 6 EN ESCAMOTANT 


LES TEMPS DE CALCUL 

Très court, rapide comme 

l'éclair (il y a un truc), un 
programme en Basic 

démasque les inconnues des 
systèmes d'équations 1 
linéaires, | 


pe] 6 LOGO-LOTO 


Simuler les tirages du Loto 

Sur un ordinateur, c'est 

enfantin. Tricher, grâce à 

une bonne connaissance du 

Logo, c'est médiocre. Mais 

est-il possible de rendre 

invisible la supercherie ? É 
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SOMMAIRE 


/ 2 UNE BASE DE 


DONNÉES, ÇA CRÉE 

DES LIENS 

Leurs applications sont 
innombrables. Apprenons à 
programmer les bases de 
données en décortiquant uñe 
liste écrite en Basic PX-8. 


/ (0) LE CANON, LA 


POMME ET LE GUÉPARD 
Les ordinateurs ne 
s'appellent pas n'importe 
comment. Remontons aux 
origines étymologiques de 
marques et de modèles 
célèbres. 


18 LE MOT DE LA FIN 


Solutions des casse-tête de 
la page 22. 


60 LES PSEUDO 


PREMIERS DITS FORTS 

Le « petit théorème » de 
Fermat permet une approche 
originale des nombres 
premiers. Voici un moyen 
rapide de traiter les nombres 
jusqu'à dix milliards. 


02 LA BOÎTE 


A MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières aux plus 
subtiles. Que reste-t-il ? 
Rien. Dans ce numéro, des 
ficelles pour TRS-80, X-07, 
C. 64, MO 5, TO 7 et 7/70, 
Dai, Apple II et Sinclair QL. 


Index des annonceurs p. 11. 
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Directeur de la rédaction : Bernard Savonet 
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ÉDITORIAL 


À NOS LECTEURS 


| 4 ous ayez entre les mains le dernier numéro de LIST : les 
Journaux, eux aussi, disparaissent. À la plupart, il n’est 
accordé qu'une existence brève : LIST aura vécu un peu plus 
d'un an. Inclinons-nous. 


Nous n'avons pas pu obtenir ce délicat dosage de recettes de 
vente aux lecteurs et de rentrées publicitaires qui est néces- 
saire à toute revue, et l'avenir ne semble guère susceptible 
d'améliorer notablement cette situation, 


En effet, le marché de la micro-informatique traverse actuel- 
lement une crise dont on ne sait pas trop qui sont en fin de 
compte les victimes, De déception en mauvaise nouvelle, cer- 
tains en arrivent même à se demander s'il existe un avenir 
sérieux pour les machines autres que professionnelles. 


Ici, à LIST, nous avons toujours considéré l'informatique 
comme un loisir studieux, une occupation gratuite et de la plus 
grande utilité, L'arrêt de notre journal ne modifie pas notre point 
de vue. Il y aura, heureusement, toujours des gens pour aimer 
et apprendre l'analyse et la programmation. Au bout du compte, 
c'est sans doute là que l'informatique donne ce qu'elle a de meil- 
leur : elle donne à comprendre et à découvrir. 


Les ordinateurs, comme tous les outils, ne valent que par 
l'usage qui en est fait, Ces outils-là ont une puissance terrible. 
Il faut que toutes celles et tous ceux qui le souhaitent puissent 
acquérir une véritable culture informatique, afin que cette cul- 
ture ne soit pas le monopole de quelques rares spécialistes. Tôt 
ou tard, on s'en félicitera. 


Nous vous remercions de la confiance que vous nous avez tou- 
jours manifestée. Nos abonnés verront se poursuivre leur abon- 
nement sur la revue L'Ordinateur Individuel, 


LA RÉDACTION 


= 
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CHEZ LE LIBRAIRE 


Guide du graphisme MSX 
Mike Shaw x 
Editions Sybex 

1985, 184 pages 


Prix : 98 FF 
1. ÉTUDE tourne autour du 
« VDP », ou processeur 
d'affichage vidéo, par lequel on 
accède à toutes les fonctions gra- 
phiques du MSX. La formation 
des caractères, la couleur, les 
lutins et les quatre modes-écran. 
Le propos est illustré par des 
exemples de programmes, en 
Basic et en langage-machine. 


Amstrad, graphismes et sons 
du CPC 464 

Jorg Walkowiak 

Editions Micro Application 
1985, 184 pages 

Prix : 129 FF 


L *’AMSTRAD est riche en 
possibilités graphiques et 
effets sonores, dont la mise en 
œuvre n’est pas toujours simple. 
Ce livre en démystifie les prin- 
cipaux aspects. Le lecteur y trou- 
vera aussi d’autres applications 
concernant les jeux et les utilitai- 
res (DAO, calcul de coordon- 
nées, dessin en deux ou trois 
dimensions, synthétiseur, etc.). 


Exercices en Basic pour 
Yeno-Sega 3000 
Frédéric Levy 

Editions du PSI 

1985, 154 pages 

Prix : 95 FF 


Exercices en Basic pour 
Alice et Alice 90 
Maurice Charbit 
Editions du PSI 

1985, 146 pages 

Prix : 95 FF 


ANS les deux cas, il s’agit 

de réaliser des program- 
mes en partant d’éléments pré- 
cis (énoncé d’un problème, don- 
nées à entrer au clavier, résultats 
à obtenir). Les exercices sont 
variés: manipulation de 
tableaux, traitement de chaînes 
de caractères, histogrammes, 
jeux. Une solution est fournie 
à la suite de chaque problème. 
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ES deux revues Micro 7 et 

Votre Ordinateur se rap- 
prochent pour n’en faire plus 
qu’une : Micro-V.O. Résolu- 
ment orienté vers le grand 
public, notre confrère a choisi 
un sous-titre coup de cœur : le 
magazine de la micro passion. 
Leur premier numéro est dans 
les kiosques le 19 septembre au 
prix de 20 FF. B 


AVIS 
FAR 
M2 nn 


M.A. Base 

Gestion de fichiers 

Cassette pour Amstrad 
Edité par Micro Application 
Prix : 165 FF 


E logiciel M.A. Base est 

livré avec un carnet d’adres- 
ses prêt à l'emploi, mais on peut 
bien entendu créer ses propres 
fichiers en définissant son mas- 
que de saisie (place des rubriques 
sur la fiche). On dispose des 
principales options rencontrées 
habituellement sur ce type de 


TE 
LA GAZETTE DE LIST 


Micro-V.O. 
la Micro passion 


Can'’ell 
ou comment un Minitel 
devient le moniteur du Canon X-07 


P OUR devenir.un véritable ordinateur de table, il ne manque 
au Canon X-07 qu’un véritable écran vidéo. Celui du 
Minitel, par exemple, ne coûte pas cher. Il est facile à trouver (dans 
les agences commerciales des PTT) et il. dispose de 19 lignes de 40 
caractères. La liaison est désormais possible grâce à Can'ell, un 
ensemble comprenant un cordon de raccordement qui va du Canon 
X-07 au Minitel, et un logiciel sur cassette. 

Le logiciel implante un programme en langage-machine qui défi- 
nit.le nouvel écran du Canon sur le Minitel. Et ce dernier ne con- 
Somme alors rien d’autre que de l’électricité, à moins d’être utilisé 
comme un modem. 

-Sur la même cassette, deux programmes de jeux font la démons- 
tration. de l'efficacité de Can’ell. Le premier est une forme simpli- 
fiée du « Compte est bon » et le second consiste à diriger une che- 
nille, à partir du pavé de flèches du X-07, afin qu’elle ramasse des 
champignons dans un labyrinthe. 

Can’ell a été conçu par la société Feeling Soft qui est actuelle- 
ment la Seule à distribuer ce produit. L'ensemble câble et logiciel 
coûte 390 FF ttc (250 FF pour le câble et 180 FF pour le logiciel). 


Feeling Soft. 
701 Boulevard Haute Folie 
14200 Hérouville St-Clair 
et 4 rue de la Cardonnière 
14000 Caen Li 


programme : recherche, modifi- 
cation, tri et bien sûr impression. 
Les fichiers sont sauvegardés sur 


E Pascal est au standard 
ISO à quatre exceptions 
près, signalées dans le manuel. 


cassette. Il utilise toutes les possibilités 
propres au QL. Une option 
« Make-job » compile tout pro- 
gramme Pascal en un fichier 
Pascal directement exécutable sous 
Microcassette QDOS, ce qui permet un fonc- 


pour Sinclair QL 

Edité par Computer One 
Distribué par Sinclair/Direco 
Prix : 850 FF 


tionnement en multitâche. Ce 
logiciel est incontestablement 
agréable à utiliser car on est tou- 
jours sous un menu. 


INDEX DES ANNONCEURS 


Dynamit Computer 
Exelvision 


L'Ordinateur Individuel 
Maubert Electronic 
Microstrad 

Microtom 
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DEUX LIVRES 


Forth, manuel d'application 
M.S. Ewing 

Editions Masson 

Collection ABC des langages 
1984, 120 pages 

Prix : 85 FF 


A collection ABC des lan- 
gages est destinée à des lec- 
teurs qui souhaitent « approfon- 
dir leurs connaissances », mais 
qui n’ont pas « d’expérience 
réelle de la programmation ». 
Or, ce manuel d’application est 
peut-être un peu abrupt pour 
eux. L’apprentissage du Forth 
nécessite un grand nombre de 
schémas représentant les piles, 
l'organisation de la mémoire, 
etc., et il y en a assez peu. 
Après une introduction sur 
l'historique et les caractéristi- 
ques du langage, ce sont les 
notions de mots, de piles et de 
gestion de mémoire de masse qui 
sont étudiées (il sera utile de se 
reporter simultanément au voca- 
bulaire du standard Forth 79 
présenté au chapitre 4). Les 
mécanismes internes du langage 
sont ensuite abordés de manière 
détaillée et c’est ici que le lecteur 
aura besoin de connaître le 
Forth. Le dernier chapitre, 
enfin, traite de la mise en œuvre 
du langage sur de gros systèmes. 
Ces pages seront de préférence 
mises entre les mains d’un lec- 
teur averti, le débutant risquant 
peut-être de se décourager. 


Tours de Forth 
Marc Petreman 
Michel Rousseau 
Editions Eyrolles 
1985, 174 pages 
Prix : 98 FF 


L ne s’agit plus ici d’ap- 

prendre le Forth. Aucune 
étude en effet sur les primitives 
de base mais une série de pro- 
grammes, directement exploita- 
bles et bien expliqués, précédée 
d’un chapitre traitant des algo- 
rithmes et des organigrammes. 
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Marc PETREMAN: 


Ces programmes ont été déve- 
loppés sur un Oric et leur adap- 
tation sur une machine sans 
mode texte telle que le Hector 
HRX (qui ne dispose que d’un 
mode d’affichage haute résolu- 
tion) sera certainement délicate. 
Néanmoins, le lecteur en tirera 
profit, quelle que soit sa 
machine car les astuces de pro- 
grammation seront utilisables 
pour d’autres applications. 
Parmi celles qui se trouvent dans 
le livre, notons une fonction 
catalogue (VLIST amélioré), un 
vidage mémoire, un décompila- 
teur et des programmes graphi- 
ques (histogrammes, jeu de 
taquin, créations de lutins) qui 
permettront de comprendre 
comment l'écran est géré. Et 
pourquoi ne pas essayer de réa- 
liser votre premier jeu d’aven- 
ture en Forth à partir des expli- 
cations fournies par les auteurs ? 

La fin de l’ouvrage est consa- 
cré au nouveau standard Forth 
83. On y trouvera toutes les dif- 
férences entre Figh Forth, Forth 
79 et Forth 93 et la manière 
d’obtenir les nouvelles défini- 
tions à partir des anciennes. Un 
livre concret qui apportera au 
programmeur initié une foule 
d’idées à mettre en pratique. 

MB 


EN LIBRAIRIE 


Guide pratique de l’ Apple Ilc 
Bruno de Latour 

Editions Cedic/Nathan 

1985, 140 pages 

Prix : 89 FF 


OUR 5e familiariser avec 

l’Apple Ilc et son environ- 
nement : présentation de l’appa- 
reil, du DOS 3.3 et de Prodos. 
On y explique comment utiliser 
les disquettes système. Des pho- 
tos d’écran illustrent les com- 
mentaires. Un aperçu des diffé- 
rents logiciels et périphériques 
disponibles dans le commerce est 
proposé. 


Les périphériques de l’Atari 
Daniel-Jean David 

Éditions du PSI 

1985, 130 pages 

Prix : 85 FF 


*OUVRAGE passe en revue 
l'utilisation des périphéri- 
ques des modèles 400, 800, 600 


XL, 800 XL : lecteur de casset- 
tes, imprimantes, lecteur de dis- 
quettes, manettes de jeux, 
tablette à digitaliser et crayon 
optique. L'auteur insiste plus 
particulièrement sur leurs appli- 
cations (gestion de fichiers ou de 
bases de données, etc). 


Commodore 64, 
Basic approfondi 
Gary Lippman 
Editions Sybex 
1985, 208 pages 
Prix : 128 FF 


L s’agit de la suite de « Com- 

modore 64, premiers pro- 
grammes » de Rodnay Zaks. Le 
lecteur a déjà passé en revue les 
principaux éléments de base et il 
fait ici connaissance avec des 
notions plus élaborées telles que 
Putilisation des fichiers sur dis- 
que et sur cassette, les tris, les 
recherches, la programmation 
modulaire, etc. 


DNUTAUR 


M DUD2* LUI LV] 


Standard MSX deuxième génération 


AI 1985, Tokyo: les 
sociétés Microsoft et 
ASCII annoncent un nouveau 
standard MSX. Entièrement 
compatible avec les ordinateurs 
de la première génération, la 
seconde version conserve le 
même microprocesseur, un Z 
80A. Sa mémoire morte aug- 
mente et passe à 48 Ko tandis 
que le minimum imposé pour la 
mémoire vive de base sera cette 
fois-ci de 64 Ko. 
Le Basic est encore plus 
« étendu » bien sûr, mais l’ori- 
ginalité de MSX 2 réside sans 


conteste dans le processeur vidéo 
pour lequel la mémoire d’écran, 
64 Ko, peut être portée à 
128 Ko, ce qui est considérable 
(résolution graphique maxi- 
mum : 512X212 points pour 
seize couleurs). 

Toujours d’origine, une hor- 
loge interne permanente et un 
crayon optique, alors que les 
concepteurs ont prévu, en option 
cette fois, l’adjonction d’un cir- 
cuit intégré dotant la machine de 
qualités sonores remarquables et 
la possibilité de digitaliser une 
image vidéo. 


Reste à savoir quels seront les 
constructeurs qui joueront cette 
carte et à quel moment le nou- 
veau standard sera introduit sur 
le marché européen. Quelques 
noms ont déjà été cités (Toshiba, 
Yamaha) ; et l’équivalent en 
francs français des prix annon- 
cés au Japon place le nouveau 
matériel dans une fourchette 
allant de 4 000 à 5 000 francs. 
Toutes ces informations vien- 
nent encore de bien loin, elles 
devraient être bientôt complétées 
par d’autres, plus précises. I 
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Sir Clive Sinclair 
passe la main 


IN mai, la société Sinclair 

recherchait des partenaires. 
Elle avait besoin d’un apport de 
capitaux nouveaux (10 à 15 mil- 
lions de livres) pour financer son 
expansion à long terme et ses 
projets de restructuration. Elle 
les a trouvés : Hollis, filiale du 
groupe Pergamon Press (Daily 
Mirror), qui a versé 12 millions 
à la firme britannique détient 
maintenant 75 % du capital. Sir 
Clive, remplacé dans sa fonction 
par Bill Jeffrey, précédemment 
Directeur de la division TV de 
Sinclair, reste Président hono- 
raire à vie. [l se consacrera 
désormais à la recherche. 


ES derniers-nés de Philips, 

les VG 8010 et VG 8020, 
tous deux au standard MSX, 
sont apparus sur le marché dans 
le courant du mois de juillet res- 
pectivement à 2 290 et 2 990 F 
environ (ces prix ne compren- 
nent que l’unité centrale). Outre 
les 16 Ko pour la gestion de 
l’écran, le premier modèle offre 
32 Ko de mémoire vive ; le 
second, un peu plus musclé, dis- 
pose de 64 Ko (+ 16 Ko de 
mémoire écran) et d’un clavier 
mécanique. 

Deux lecteurs de disquettes 
devraient être disponibles en 
octobre (environ 1 890 et 
3 190 FF). Enfin, un Logo et un 
Pascal UCSD sont annoncés ; ils 
seraient actuellement en cours de 
développement. L 
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Imprimer avec 
MSX 


INTERFACE parallèle de 

Pimprimante ST-80 autori- 
se sa connexion avec les ordina- 
teurs MSX. Elle est thermique et 
travaille sur 80 colonnes. Sa 
vitesse d'impression est'de 60 
caractères par seconde. La Star 
ST-80 vaut 2 500 FF ttc et elle 
est distribuée par Hengstler. 
Hengstler 
94-106 rue Blaise Pascal - BP 71 
93602 Aulnay sous Bois 
Tél. : (1) 866 22 90 L 


Duriez 
se télématise 


N composant le (1) 329 42 

99 (à partir du 25 
octobre 1985, ce sera le 43 29 42 
99) avec un Minitel, vous entrez 
en contact avec la boutique 
Duriez. Pour chacun des articles 
disponibles — ordinateurs de 
poche, familiaux, périphériques, 
logiciels —, on obtient les tarifs 
qui sont réactualisés tous les huit 
jours. Attention toutefois, ces 
renseignements ne sont fournis 
qu’à titre indicatif. 


Le coût de la consultation est 
équivalent à celui d’une commu- 
nication téléphonique classique. 


Philips au standard MSX 


CHEZ LE LIBRAIRE 


Programmatique 

Chantal et Patrice Richard 
Editions Belin 

Collection Modulo 

1985, 192 pages 


Prix : 90 FF 

A « programmatique », 
néologisme créé par les 
auteurs, désigne la méthodolo- 
gie de la programmation, indé- 
pendamment de tout matériel ou 
langage particulier, à l'exception 
toutetois d’ALADIN, langage 
inventé également par Chantal et 
Patrice Richard (ALADIN, lisez 
ALgorithmique Arborescente 
pour Débutants en INformati- 
que). Un ouvrage spécialement 
destiné aux élèves, étudiants ou 
enseignants. 


Electro-Basic 

Programmes de simulation 
en Basic 

Claude Nowakowski 
Editions du PSI 

1985, 158 pages 

Prix : 95 FF 


l'initiation à l’informati- 

que, ni cours d’électro- 
nique, cet ouvrage a pour but de 
fournir aux étudiants en élec- 
tronique des applications qui 
permettent d’utiliser l’ordina- 
teur. Il s’adresse à ceux qui sont 
intéressés par la théorie des cir- 
cuits. Après un chapitre consa- 
cré à des généralités sur les 
réseaux R,L,C, l’étude porte sur 
les fonctions périodiques. 


accessoires et machines à écrire électroniques Sharp- Canon 


Super Promotion Rentrée! 


PC 1246-1247-1260-1261 


PC 1401- 
CANON Ù 


X 07 et périphériques etc. 


SHARP 


1402-1450-1350-1500A 


V20 


IHEWLETT-PACKARD 


Remise supplémentaire —20% 


sur HP 11-12-15 
CASIO 


FX700-FX702P-FX750-PB200 
PB700- etc. 


NOUVEAUTE “M.S.X “EN DEMONSTRATION 
MAUBERT ELECTRONIC 49, bd. St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M°'MAUBERT 
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CHEZ LE LIBRAIRE 


Le langage Pascal Iso 
Thierry Chamoret 
Editions Editests 
1985, 224 pages 

Prix : 130 FF 


AUTEUR a réalisé un ins- 

trument de travail très com- 
plet, exposant les particularités 
et possibilités du langage, à la 
fois manuel de référence et guide 
décrivant le fonctionnement 
interne des instructions. 

Il s'adresse à des lecteurs 
ayant déjà de bonnes connais- 
sances en informatique et maf- 
trisant au moins un langage de 
programmation. Quant à ceux 
qui connaissent Pascal, qui ont 
cessé de le pratiquer pendant un 
moment et qui désirent s’y 
remettre sérieusement, ils auront 
avec cet ouvrage une bonne 
occasion de se rafraîchir la 
mémoire. 


Programmes pour MSX 
Serge Pouts-Lajus 

et Pierre Champeaux 
Editions Cedic/Nathan 
1985, 122 pages 

Prix : 75 FF 


ES programmes rassemblés 

utilisent surtout les possibi- 
lités graphiques et sonores des 
MSX. On y trouve des morceaux 
de musique comme « le derviche 
tourneur » de Marcel Dadi. Il y 
a aussi quelques utilitaires et, en 
annexe, un lexique du Basic 
MSX. 


UN LIVRE 


Holon 

roman 

Philippe et Jean-Christophe 
Colonna 

Editions du Seuil 

1985, 324 pages 

Prix 


: 89 FF 


Ph ___Ph.et].Ch.Colonna 


> | ()J1 LA) memes 


OÙUS n'avons jamais 

signalé d'ouvrages de fic- 
tion dans ces colonnes. Nous 
ferons donc une petite exception 
pour Holon, roman qui nous 
transporte à la fin du XXI° siè- 
cle. La grande révolution infor- 
matique (dont on parle tant et 
tant de nos jours) a alors eu lieu. 
Les ordinateurs et la télématique 
ont depuis longtemps infiltré, 
investi, contaminé la vie quoti- 
dienne. Présence familière, plu- 
tôt bénéfique à première vue, 
mais implacable. Le fichage est 
ainsi devenu l’un des éléments 
les plus importants de la vie du 
citoyen. Sur chacun pèse en effet 
la menace d’être radié des 
fichiers, c’est-à-dire d’être rejeté, 
clochardisé dans un monde mar- 
ginal et cauchemardesque. 

On peut avoir de l’informati- 
que une vision optimiste. Ce 
n’est pas celle des deux auteurs 
d’Holon et leur hypothèse tient 
assez bien debout. Si vous vou- 


Amstrad encore plus gros 


E nouveau modèle d’ordi- 

nateur d’Amstrad porte le 
nom de : CPC 6128. Il est riche 
de 128 Ko de mémoire vive. 
Comme le CPC 664 — le précé- 
dent modèle — il dispose d’un 
lecteur de disquettes de 3 pouces 
(disquettes d’une capacité de 
340 Ko, formatées). Son clavier 
est moins encombrant que celui 
de son prédécesseur, le pavé 
numérique étant accolé aux 
autres touches. Les logiciels sur 
cassettes ou sur disquettes, con- 
çus pour les précédents modèles, 
tournent sur celui-ci. Il est vendu 
au prix de 4 490 FF ttc avec un 
moniteur noir et blanc, et 
5 990 FF ttc avec un moniteur 
couleur. 

Les prix des autres modèles 
ont diminué: le CPC 464, 
64 Ko de mémoire vive et un lec- 
teur de cassettes intégré, coûte 
2 690 FF tte avec un moniteur 


noir et blanc, et 3 990 FF ttc 
avec un moniteur couleur ; le ” 
CPC 664, 64 Ko de mémoire 
vive et un lecteur de disquettes 
intégré, coûte 3 790 FF ttc avec 
le moniteur noir et blanc, et 
5 290 FF ttc avec le moniteur 
couleur. [| 


Carte moniteur 
XP-140 
pour Canon X-07 


A XP-140, comme toutes 
les cartes d’application du 
Canon X-07, s’insère au dos de 
la machine. À ses 8 Ko de 
mémoire morte s’ajoutent 4 Ko 
de mémoire vive sauvegardés par 
pile, dont 1 Ko utilisé par le 
moniteur. 
Cette carte a deux fonctions : 
elle étend le Basic du X-07 et 
offre un mode moniteur (d’où 


Le Tandy 200 
succède au Modèle 100 


lez vous faire peur en plongeant 
dans l’enfer informatisé, et si 
vous aimez les romans bien fice- 
lés, je vous conseille celui-là. Il 
démarre un peu lentement à mon 


VEC un écran de seize lignes de 40 caractères, le portable 
Tandy 200 reste compatible avec son prédécesseur, le Modèle 
100. Sa mémoire vive de 24 Ko de base (dont 19 seulement pour 
l'utilisateur) peut être étendue jusqu’à 72 Ko par l’adjonction de 
modules de 24 Ko. Comme le modèle 100, le Tandy 200 a ses logi- 


goût, mais une fois que la | ciels intégrés : un tableur (Multiplan), un traitement de texte (Text), 
mayonnaise prend, quelle | un programme de gestion d’adresses. Il est vendu 8 250 FF ttc, cha- 
histoire ! que module de mémoire vive valant 1 720 FF ttc. 

JBC HE Le modèle 100, toujours en vente, coûte quant à lui 4 495 FF ttc. 


LIST - PAGE 14 N°.12 - SEPTEMBRE/OCTOBRE 85 


son nom) pour créer des pro- 
grammes en langage-machine. 

A la mise en route, on dispose 
sous Basic de neuf nouvelles ins- 
tructions pour la gestion de 
fichiers (BSAVE et BLOAD 


pour les fichiers binaires, 
BLOADI, MERGE et RE- 
NAME), l'exécution de routines 
en liaison avec le moniteur 
(MEXEC, USRM) et l'édition 
de programmes en Basic 
(RENUM, DEL). 

Le mode moniteur est à l’évi- 
dence l’'atout de cette carte et 
justifie aisément son acquisi- 
tion : une commande, MON, lui 
passé fa main, une autre BAS, la 
rend au Basic. I} permet de 
visualiser où d'écrire des don- 
nées en mémoire (M, V}, de trai- 
ter les registres Z 80 (R), de 
désassembler (VN}, d’exécuter 
(G), de suivre des routines en 
langage-machine (T,N). Les 
vidages et les désassemblages ne 
sont pas limités à l’écran, l’ins- 
truction PM permettant leur édi- 
tion, en hexadécimal ou en 
caractères ASCII, sur l’impri- 
mante. Certaines commandes, 
plus spéciales, rendent possibles 


Diskettes promo 5.25" SF/DD/10 pc. 
Diskettes NASHUA 5.25" SF/SD/10 pc. 
Diskettes 3M 5.25” SF/DD/10 pc. 


la pose de points d’arrêt (BP), et 
leur suppression (K). Enfin, les 
entrées/sorties se font sur un 
octet avec IN et OUT. Au total, 
quinze commandes dont une 
pour le retour au Basic. Notons 
que le petit écran du X-07 est 
particulièrement bien utilisé, par 
exemple lors de l'affichage de 
l’ensemble des registres (PC, SP, 
AF, BC, DE, HL, IX, IY). 

Deux manuels sont fournis 
avec la carte. Le premier est un 
guide de l’utilisateur qui décrit, 
avec exemples, les nouvelles ins- 
tructions Basic et les commandes 
du moniteur. Le deuxième est un 
« guide technique » qui, s’il 
n’est pas très facile d’accès, re- 
cèle de précieuses informations 
pour la programmation. On y 
trouvera les principales routines 
système, les commandes du 
deuxième processeur, la gestion 
des interruptions, etc. 

Malgré l'absence regrettée 
d’un assembleur, [a carte 
XP-140 (avec sa documentation) 
est un bon outil, particulière- 
ment utile pour la mise au point 
de programmes en langage- 
machine. LG M 


75F 
100 F 
175F 


Diskettes couleur + boîte plastique/10 pc. 170 F 


Diskettes 3” 1/2 par 10 
Diskettes haute densité 


Pour:APPEI 

Carte 128K 

Carte 16 K langage 
Carte 80 col. (2+) 

Carte 80 col. + 64 K (2e) 
Softswitch 40/80 col. 
Wildcard déplombage (2+) 
Speech card 

Z-80 CP/M 

Mocking card 

Musique Synthé. (9 voix) 
5069 Via 

Drive Slim 2+, 2e 


270 F 
Téléphonez. 


Atari Logo 

Cartouche pour Atari 130 XE 
Edité par Atari 

Prix : 800 FF 


EUX manuels sont livrés 

avec la cartouche : le pre- 
mier est une introduction à la 
programmation en Logo, le 
second est un ouvrage de réfé- 
rence qui s’adresse aux utilisa- 
teurs connaissant déjà le lan- 
gage. Un petit fascicule, qui 
récapitule les primitives du Logo 
Atari, vient compléter cette 
documentation. 


Macro-assembleur 

Disquette pour Atari 130 XE 
Edité par Atari 

Prix : 450 FF 


À disquette contient un 
macro-assembleur condi- 
tionnel et un éditeur. L’utilisa- 


2 Drives 360 K-256 K résident 
1 carte Monoch. graph. imprimante 


1 carte drive 
Clavier AZERTY 


teur dispose ainsi d’un moyen de 
se créer une bibliothèque de 
macro-instructions qui seront 
assemblées à sa demande. Ces 
dernières peuvent s’emboîter et 
offrent donc les avantages d’un 
langage de programmation de 
haut niveau, Ce produit 
s'adresse plutôt aux dévelop- 
peurs et aux amateurs avertis. 


Logo V1.0 

Cassette pour Oric-1/Atmos 
Edité par Loriciels 

Prix : 295 FF 


NE version du langage 

créé par Seymour Papert, 
adaptée à l’Oric. On y retrouve 
les principales caractéristiques : 
tortue, mots-clés, procédures, 
récursivité. Comme pour tous les 
logiciels de ce type, la notice n’a 
pas pour vocation l'initiation au 
Logo. Une formation préalable 
est nécessaire. 


Le tout (TTC) 
9 900 F 


N'ATTENDEZ PAS. INVESTISSEZ DANS VOTRE FUTUR ! 


Moniteur monochrome IBM 

Disque dur 10 Mega avec controteur 
Imprimante MT-80 PC (130 cps) 
Imprimante SG-10 (120cps) 


— Unité centrale 512 
Lecteur disquettes 500 K 


Moniteur Monochr. haute résolution 


et en plus la souris 11! 


1450 F 
8895F 
3 990 F 
3850F 


L'ensemble 


9 950 F 


Connecteur Drive 2c 

Joystick 

Tablette graphique APPLE/IBM 
Ordinateur CPU 64 K (sans ROMS) 
compatible APPLE 2e 

Kit de ROMS + 65CO02 + cabochons 
Français (Original APPLE) 


Autres: 
Modem CCITT V 21 (Universel) 


Tablette graphique COMMODORE 
Imprimante MT-80 + (100 CPS) 


650 F 
2750F 
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Cadeau de 10 diskettes 3°'1/2 
aux 500 premiers acheteurs 


54, rue de Dunkerque - 75009 Paris 
Métro : Anvers. Tél. : (1) 282.17.09 
Heures d'ouverture : Lundi au samedi de 9h30à 19h 


Écrivez pour une liste plus complète 
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CHEZ LE LIBRAIRE 


Clefs pour MSX 

Tome 1 - Système de base 
Rémy Pineau 

Editions du PSI 

1985, 270 pages 

Prix : 150 FF 


E pavé (reliure spirale) se 

veut «livre de bord » 
du MSX. L'ordinateur est dissé- 
qué, ses connecteurs, proces- 
seurs, instructions Basic, micro- 
processeur et adresses — mémoi- 
res morte et vive — passés en 
revue. Les nombreux tableaux 
récapitulatifs à plusieurs entrées 
et les tables de références de tou- 
tes sortes sont complétés d’un 
index des abréviations anglais- 
français. 


Apprendre à programmer 
Jack Emmerichs 

Editions Belin 

Collection Modulo 

1985, 264 pages 

Prix : 160 FF 


OMMENT concevoir ses 

programmes avec métho- 
de. Ce n’est ni le langage utilisé, 
ni le matériel qui préoccupe l’au- 
teur (même si quelques exemples 
en Basic ou en Pascal apparais- 
sent çà et là), mais les différen- 
tes étapes qui mènent à la réali- 
sation d’un programme, de 
l’idée de départ à la mise en 
forme définitive. 


Mathématiques et graphismes 
Micro pour l’école 

Gérald Grandpierre 

Richard Cotté 

Editions du PSI 

1985, 260 pages 

Prix : 130 FF 


ES droites (déformations, 

rotations, fractals), les 
courbes (approximations de 
fonctions, systèmes différentiels) 
et l’espace (surfaces, manipula- 
tions d’objets) : ce sont les trois 
grands chapitres du livre. 

Les programmes proposés 
sont susceptibles d’être adaptés 
à différents modèles d’ordina- 
teurs, ceux-ci devant bien évi- 
demmént disposer de possibili- 
tés graphiques. 
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L'informatique 
et les libertés 


UNE CASSETTE 


LM Plus 

Compilateur Basic 
Cassette pour Oric-1 et 
Atmos 

Edité par Isosoft 

Prix : 250 FF 


E Basic, langage interprété, 
ne brille pas spécialement 
par sa rapidité ; ses avantages 
résident plutôt dans sa souplesse 
d’emploi et la diversité de ses 
instructions. Le compilateur 
transforme le Basic en langage- 
machine et lui confère du même 
coup la rapidité de ce dernier. 
Après avoir chargé LM Plus, 
on entre une liste Basic en 
-mémoire, on appelle l'utilitaire 
par un CALL+# 9200 et le tour est 
joué. Le processus de compila- 
tion se décompose en cinq éta- 
pes : le programme regroupe les 
DATA et construit une table 
d’adressage pour les numéros de 
lignes référencés, il dimensionne 
ensuite les tableaux (DIM), il 
affecte à chaque variable une 
place en mémoire et il compile ; 
enfin, il achève de coder les 
numéros de lignes. L'utilisateur 
suit, s’il le veut, ces différentes 
opérations (qui durent quelques 
secondes) car l’écran indique le 
numéro de l’étape en cours. 
LM Plus propose ensuite d’af- 
ficher la table des adresses des 
variables et donne celles de 
début et de fin du code compilé. 
Celui-ci se lance avec un CALL 
suivi de l'adresse de départ. 
Ainsi transformé, il tourne envi- 


A Commission Nationale 

de l’Informatique et des Li- 
bertés (CNIL) publie une remise 
à jour des textes législatifs rela- 
tifs à « la protection des person- 
nes à l’égard du traitement auto- 
matique des données » (7€ édi- 
tion - 30 avril 1985). Il s’agit 
d’un recueil de 235 pages que 
l’on peut se procurer pour 45 FF 
(+ 7 FF de port) auprès de la 
Direction des Journaux Offi- 
ciels. La brochure s'intitule 
« Informatique et Libertés » et 
porte le n° 1473. 
Direction des Journaux Officiels 
26 rue Desaix 
75727 Paris Cedex 15 
Tél. : (1) 578 61 39 poste 715 
Minitel : 16 (3) 615 91 77 + 
JOEL 5 


ron sept fois plus vite que son 
« original » en Basic. 

Pouvons-nous pour autant 
compiler tous nos programmes ? 
Hélas non ! Pour tenir dans la 
mémoire de l’Oric sans prendre 
toute la place, on a sévèrement 
limité LM Plus. La première res- 
triction est de taille : on ne peut 
travailler qu’avec des entiers (de 
—32768 à +32767). Voilà qui 
écarte d'emblée tous les calculs 
mathématiques et limite sérieuse- 
ment les autres. La seconde res- 
triction concerne les expressions. 
Elles ne peuvent se composer que 
de deux opérandes au maximum. 
Si A=B+C est permis, 
A=B+C+D provoque l’appa- 
rition d’un message d'erreur. Il 
faut décomposer l'expression : 
A=B+C et A =A+D. Les pro- 
grammes déjà écrits devront donc 
être remaniés dans ce sens. 

Enfin, LM Plus n'accepte 
qu’un seul IF sur une même 
ligne et ne semble pas admettre 
les conditions sur les chaînes de 
caractères. Les fonctions mathé- 
matiques sont bien sûr interdi- 
tes, de même que DEF FN, 
USR, STORE, RECALL et 
quelques autres. 

Mais le produit a aussi ses 
bons points. On peut sauvegar- 
der le programme compilé et ses 
variables, et il n’est pas néces- 
saire d’avoir LM Plus en 
mémoire pour le recharger et le 
faire fonctionner. Il suffit de 
noter l’adresse d’implantation 
pour le lancer avec un CALL. Il 
est également possible de définir 
soi-même l’adresse d’implanta- 
tion. Avec la table des variables, 
on pourra « mélanger » des par- 


Un club 
pour l’ Amstrad 


I l'adhésion à l’Association . 

pour la Promotion du CPC 
est gratuite, elle ne donne cepen- 
dant pas droit à sa lettre bimen- 
suelle. Pour recevoir cette der- 
nière, il faut s’abonner : 200 FF 
pour vingt numéros par an (le 
premier numéro est envoyé con- 
tre 10 FF). L'APC prévoit, entre 
autres, la réalisation d’un 
annuaire regroupant les utilisa- 
teurs de l’Amstrad et un guide 
de logiciels. 

On peut leur écrire à l’adresse 
suivante, en n’oubliant pas une 
enveloppe timbrée et libellée : 
Association pour la 
Promotion du CPC 
109 rue Gaston Lauriau 
93100 Montreuil 


Tél. : (1) 859 71 01 = 


Vacances d’hiver 
et micros 


*’ARDÈCHE offre-t-elle 
des températures clémentes 
pendant les mois d’hiver ? Le 
Microtel club de la région pro- 
pose de venir sur place le décou- 
vrir dans le cadre de stages d’in- 
formatique ouverts à diverses 
activités de loisirs (randonnées 
pédestres, photographie, etc.). 
Trois sessions sont prévues : 
du 27 novembre au 3 décembre 
1985, coût 1 800 F ; du 22 au 29 
décembre et du 26 décembre au 
1er janvier coût 2 800 F la ses- 
sion, réveillon compris. 
Tous ces tarifs (des réductions 
peuvent être accordées ss 


ties de programme compilé et de 
Basic. D’autant que la présence 
du compilateur en mémoire 
n'empêche absolument pas de 
lancer l'exécution d’un pro- 
gramme en Basic, d’où une 
grande facilité de mise au point. 
Il faut simplement éviter de pas- 
ser en haute résolution : cela 
conduirait à effacer l’utiliaire. 
LM Plus est accompagné 
d’une notice claire et assez com- 
plète qui donne toutes les 
syntaxes admises pour chaque 
instruction. Il sera particulière- 
ment utile à ceux qui veulent 
faire de l’animation, domaine où 
le langage évolué (bien que tra- 
vaillant en général sur des 
entiers) est vraiment trop lent. 
PB 
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familles) englobent l’héberge- 

ment dans une maison familiale 

et l’adhésion à Microtel pour 

l’année scolaire 1985/86. 
Dossier d’inscription et rensei- 

gnements complémentaires au : 

(75) 39 18 80. 

Microtél Ardèche Sud 

La Croix de Malet - BP 36 

07110 Largentière & 


Apprendre 
le Pascal 


A société Borland pré- 

sente, sous la forme d’un 
manuel et d’une disquette, un 
cours d’initiation au Pascal. Son 
nom, Turbo Tutor, rappelle 
celui de son prédécesseur, Turbo 
Pascal. Le produit est destiné à 
guider le débutant dans son 
approche de ce dernier ; maïs il 
propose aussi, à l’intention du 
programmeur confirmé, des élé- 
ments pour une utilisation avan- 
cée du langage. 

Il coûte environ 480 FF et il 
est commercialisé par Fraciel, 
qui distribue aussi Toolbox 
(750 FF), une série de trois uti- 
litaires pour Turbo Pascal (ges- 
tion de fichiers, tri, module 
d'implantation de routines). 
Tous deux tournent sous les 
systèmes d’exploitation MS- 
DOS, PC-DOS et CP/M. 
Fraciel 
42 rue des Prébendes 
37000 Tours 
Tél. : (47) 64 08 52 Ci 


Canon équipe 
les MSX 


A société Canon s'intéresse 

aux MSX. Elle annonce un 
lecteur de disquettes, le VF 100 
qui devrait être commercialisé 
courant septembre. Il se connec- 
tera sur un port cartouche du 
MSX et les disquettes (3 pouces 
1/2) auront une capacité de 
720 Ko après formatage. Livré 
avec son contrôleur et une dis- 
quette MSX-DOS, le VF 100 
coûtera environ 3 400 FF ttc. 

Autre périphérique MSX, la 
T22A est une imprimante ther- 
mique qui va jusqu’à 140 colon- 
nes. Sa vitesse d’impression sur 
80 colonnes est de 56 caractères 
à la seconde et elle vaut environ 
2 000 FF ttc. 

Une interface X 740 permet de 
connecter un Canon X-07 à un 
MSX pour transférer des don- 
nées d’un matériel à l’autre. Son 
prix : environ 450 FFttc. M 
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Microstrad 
Tout Amstrad 


* S: [CRO 
TRAD 


F5 A 


MUPROGRAMMESET 
ASTUCES POUR 
CPCA64 À 6128 


ICROSTRAD (compre- 

nez : un magazine entiè- 
rement consacré à la famille 
Amstrad) sort le 16 septembre. 
Les adeptes du CPC devraient y 
trouver une mine de renseigne- 
ments sur leur matériel. Exploi- 
ter les possibilités de la machine, 
améliorer ses performances, 


dévoiler ses ressources cachées, 
découvrir de nouvelles applica- 
tions, autant de domaines privi- 
légiés pour cette revue d’une 
soixantaine de pages que votre 
marchand de journaux vous 
cèdera pour 28 FF. 3 


Forth 

Cassette pour MO 5 
Edité par Loriciels 
Prix : 320 FF 


ETTE version est du type 

Fig Forth 79 et comporte à 
ce titre toutes les fonctions de 
celui-ci. En supplément, le Forth 
MO 5 possède des instructions 
permettant de gérer le graphisme 
de manière efficace ainsi que la 
possibilité de créer des 
« lutins ». Le logiciel est pré- 
senté dans un coffret avec une 
petite notice d’une cinquantaine 
de pages. 


L-Basic 

Disquette pour C.64 
Edité par Loriciels 
Prix : 695 FF 


E classeur dans lequel est 
logée la disquette abrite un 
mode d’emploi réparti en onze 
chapitres (100 pages). Le logiciel 


Les souris de la rentrée seront-elles à l’heure ? 


En France 
Atari 520 ST 


?ATARI 520 ST arrive en 

France. Il dévrait être en 
vente depuis le 1** septembre, au 
prix de 10000 FF ttc. Dans 
l'emballage, à côté de Punité 
centrale, on trouvera le moniteur 
noir et blanc, un lecteur de dis- 
quettes, une souris, un système 
d’exploitation GEM (Graphics 
Environment Manager) sur dis- 
quètte, et quatre logiciels : Gem- 
paint (logiciel graphique), 
Gemwrite (traitement de texte), 
Logo et Basic. Si ce dernier 
n’était pas encore disponible (il 
est conçu par Digital Research), 
une feuille préviendrait l’utilisa- 
teur : il pourra sé procurer le 
Basic ultérieurement sans bourse 
délier. Quant au système d’ex- 
ploitation GEM, il est encore sur 
disquette dans une version qui, 
probablement, n’est pas défini- 
tive. Si tout va bien, il devrait 
être disponible en mémoire 
morte vers le début novembre. A 


est destiné à des développeurs, 
c'est-à-dire des programmeurs 
désireux de commercialiser leurs 
produits. L-Basic leur apporte 
de nouvelles fonctions, notam- 
ment dans le domaine du gra- 
phisme et des sons. Pourtant, un 
autre public paraît aussi visé : 
celui des débutants auxquels 
l’auteur, animateur de profes- 
sion, à l'habitude de s’adresser. 


Easy-Amscalc 

Tableur 

Cassette pour Amstrad 
Edité par Amsoft 

Prix : 245 FF 


cé moment-là, il sera possible de 
le faire installer, mais on ne con- 
naît pas encore les modalités de 
cette transformation. 


Aux Etats-Unis 
L’'Amiga 


LUSIEURS revues anglo- 

saxonnes (Personnal Com- 
puter World, Compute !, Bytes, 
etc.) ont présenté, pendant l'été, 
les aspects techniques du nou- 
veau Commodore appelé 
Amiga : 256 Ko de mémoire 
vive extensible à 512, un proces- 
seur Motorola 68000, un lecteur 
de disquettes intégré, un moni- 
teur haute résolution et de qua- 
lité, devant gérer 256 000 points 
(640 X 400) dans lé mode maxi- 
mum.et 4 096 couleurs. La ges- 
tion de plusieurs tâches simulta- 
nées est un atout (remarqué par 
tous) de cette machine par ail- 
leurs très rapide. Aux Etats- 
Unis, l’Amiga devrait coûter 
environ 1 300 $ sans écran. M 


E tableur, qui s’étend sur 
36 lignes et 26 colonnes, 
permet la représentation graphi- 
que des calculs sous formes de 
diagrammes en bâtons. 
Comme pour la plupart des 
logiciels de ce type, on ne peut 
pas utiliser Easy-Amscalc sans 
avoir auparavant consulté la 
notice qui l'accompagne (24 
pages). Il est dommage de ne pas 
trouver à l'écran des menus 
détaillés indiquant chronologi- 
quement les opérations à effec- 
tuer pour établir des légendes, 
entrer des données, les calculer 
puis les sauvegarder. 


Cachez ce TO9... 


NFIN un vrai clavier chez Thomson ! Même si le constructeur 


ne nous a pas 


laissé voir 


la machine-à-faire-couler-d 


l’encre, tout semble confirmer que le TO9 est doté d’un véritable 


clavier mécanique. 
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Forth 

Microcassette pour Sinclair QL 
Edité par Computer One 
Distribué par Sinclair/Direco 


Prix : 690 FF 

ETTE version du Forth 

destiné au QL est au stan- 
dard 83. Elle possède des exten- 
sions (le calcul en virgule flot- 
tante, le son et la gestion des 
fenêtres) qui permettent d’utili- 
ser toutes les possibilités du QL. 
Elle dispose aussi d’un macro- 
assembleur et permet de travail- 
ler en « multitâches ». Un 
défaut de taille pour ce côté-ci de 
la Manche : la notice est en 
anglais. 


Forth 

Cassette pour Canon X-07 
Edité par Logi’stick 
Distribué par DDI 

Prix : 240 FF 


NCORE un Forth ! Celui- 

ci est au standard 79. Son 
adaptation au X-07 a néanmoins 
conduit l’auteur à en modifier 
quelques points. Ceux-ci font 
l’objet d’un des chapitres du 
manuel qui accompagne la cas- 
sette. L'utilisateur, s’il ne con- 
naît pas encore le langage, devra 
acquérir un ouvrage d’initiation 
au Forth. Le logiciel nécessite la 
possession d’un module 8 Ko 
portant la mémoire vive du X-07 
à 16 Ko. Le manuel (environ 30 
pages) est au format 21 x 29,7. 


Le Basic 

Auteur : Raynald Donais 
Disquette pour Apple II 64 Ko 
Edité par Puce 

Distribué par Magnard 
Informatique 

Prix : 990 FF 


ES personnes que la langue 

anglaise horrifie et qui dési- 
rent se mettre au Basic pourront 
jeter leur dévolu sur ce logiciel. 
Conçu et édité par une équipe 
canadienne, il a été sélectionné 
par le distributeur français pour 
ses qualités pédagogiques. Cha- 
que instruction du langage le 
plus utilisé parmi les non- 
professionnels trouve ici son 
équivalent en français. PRINT 
devient ECRIS, INPUT, 
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DEMANDE, etc. Destiné à ceux 
qui veulent apprendre à pro- 
grammer dans la langue de... 
Molière. 


Basic étendu musical 
Cassette pour C.64 

Edité par Ere Informatique 
Prix : 250 FF 


E logiciel permet de créer 

des mélodies composées de 
une à trois voix. Celles-ci peu- 
vent être sauvegardées, modi- 
fiées et intégrées dans une liste 
Basic. Lors de leur exécution, les 
notes de la partition jouée défi- 
lent à l’écran sur trois colonnes. 


UNE CASSETTE 


a«< 


DAO 

Logiciel graphique 
Cassette pour Amstrad 
CPC 464/664 

Edité par Cobra Soft 
Prix : 120 FF 


AO, utilitaire, permet de 

créer à partir du clavier, 
des dessins qui peuvent être uti- 
lisés dans d’autres programmes. 
Le travail s'effectue très classi- 
quement par l'intermédiaire du 
pavé numérique qui permet de 
déplacer dans huit directions un 
stylo (pixel) sur l’écran. Il y a 
trois modes graphiques avec le 
nombre de couleurs, correspon- 


.dessin en cours. 


UN LIVRE 


Amstrad, le Basic au bout 
des doigts 

Kampow 

Edité par Micro 
Application 

1985, 190 pages 

Prix : 149 FF 


ES 190 pages à l’écriture 

serrée, traduites de l’alle- 
mand, sont visiblement destinées 
aux débutants. Elles sont d’un 
parfait classicisme après un pre- 
mier chapitre qui évacue trop 
rapidement (une vingtaine de 
pages) tout ce qu’il faut savoir 
sur la structure des program- 
mes : analyse (organigramme 


quand tu nous tiens !), les divers 


dant, onze commandes pour les 
déplacements, le choix des cou- 
leurs, l'épaisseur des traits, etc. 
Les manipulations sont aisées 
mais les lignes se tracent lente- 
ment (le logiciel est écrit en 
Basic), et l’on aurait aimé une 
véritable « gomme » pour effa- 
cer facilement une portion du 


D'autres fonctions, plus éla- 
borées, complètent la palette du 
créateur d’images lui permettant 
d’obtenir cercles, disques et rec- 
tangles et rendant possible le 
transfert de blocs graphiques 
(grâce à une routine en langage- 
machine). Si l’on ajoute à cela 
l'écriture de texte en un point 
quelconque de l’écran, l’affi- 
chage instantané des coordonnés 
du stylo, la mémorisation de 
points présélectionnés sans 
oublier la sauvegarde du dessin 
sur cassette, on aura fait le tour 
de ce qu'offre le logiciel. 


DAO est donc relativement 
complet, simple d'emploi et les 
commandes sont bien pensées. 
Cette simplicité d'ensemble est 
d’autant plus appréciable que la 
notice d'utilisation est bien 
légère. 


Il est dommage que les mani- 
pulations du dessin se limitent à 
la seule fonction de transfert de 
bloc (pas d’inversion, pas de 
zoom ni de superposition), mais 
pour le prix, on ne peut tout de 
même pas tout avoir ! 

JPL 5 


d’Amstrad. 


systèmes numériques, les bits et 
leurs compères les octets. 

Une certaine recherche péda- 
gogique montre le bout de son 
nez avec quelques exercices faci- 
les, accompagnés de leur solu- 
tion. Les chapitres suivants 
emmènent le lecteur d'INPUT à 
EVERY via WINDOW en fai- 
sant alterner pour chaque ins- 
truction étudiée les explications 
fonctionnelles, les programmes 
de démonstration et les applica- 
tions avec corrigés. 

Un reproche sur la qualité 
d’impression du livre : la com- 
position, certainement due à une 
imprimante, rend la lecture 
malaisée. Pour le prix, on aurait 
espéré mieux. 

Pour tirer profit des enseigne- 
ments de l’ouvrage, il sera bon 
de le tenir d’une main tout en 
manipulant l’ Amstrad de l’au- 
tre. La méthode ne brille peut- 
être pas par son originalité, mais 


elle a déjà fait ses preuves. C’est 


en tout cas ce qui fait la diffé- 
rence avec le manuel de l’utili- 
sateur livré avec la machine. Ce 
dernier est une notice de référen- 


ces un peu trop aride et incom- 


plète pour débuter, celui-ci est 
un outil d'apprentissage qui en 
vaut bien un autre. A destination 
de ceux qui veulent faire leurs 
premières armes sur l’ordinateur 
JPL 5 


Vente par 
correspondance 


E troisième catalogue 
Moore Paragon (« con- 


sommables » et accessoires 
informatiques) est disponible, 
Pour se le procurer, il suffit 
d'appeler le (16) 05 27 78 11 
(numéro de téléphone vert). 
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GÉOMÉTRIE 


TRIANGLES ET 
BONNES RÉSOLUTIONS 


ANS aborder dans le 

détail les différents 
problèmes courants en 
topographie, examinons 
la pierre « angulaire » de 
ce type de questions : la 
résolution des triangles. 


Toute figure de géométrie formée 

de lignes droites peut se décompo- 
ser en triangles. C’est de cette simple 
propriété que le triangle tire toute son 
importante. 


Ainsi donc, quel que puisse être le pro- 
blème de géométrie qui se pose, nous 
pourrons toujours le ramener à la réso- 
lution des divers triangles qui le compo- 
sent pour peu qu'aucune courbe 
n’intervienne. 

Théoriquement, le nombre de ces cas 
de résolution n’est pas limité. On pourra 
toujours en inventer un de plus. Par 
exemple : construire un triangle con- 
naissant un côté, un angle et une hau- 
teur ou une médiane ou (pourquoi 
pas ?) la moitié du rayon du cercle ins- 
crit. Cependant, tous ces cas se ramè- 
nent à quatre cas classiques. 

Ce programme pour ZX Spectrum 
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donne les solutions à ces quatre cas, 
c’est-à-dire connaissant : 

a) les trois côtés ; 

b) deux côtés et l’angle compris ; 


c) deux côtés et un angle adjacent ; 
d) un côté et deux angles. 


On dispose ainsi d’un moyen de 
résoudre tous les problèmes de topogra- 
phie plane qui peuvent se poser, et, par 
exemple : 

e distance à un objet de hauteur 
connue ; 


e distance à un objet de hauteur 
inconnue ; 
+ distance entre deux points 


inaccessibles. 


De tous côtés, 


sous tous les angles. 


Le programme ci-après permet, de 
trouver les solutions à cette série (non 
limitative) de cas, et il peut être rema- 
nié pour traiter plus commodément 
l’un ou l’autre d’entre eux : il est quand 
même plus pratique de répondre à des 
INPUT qui s'expriment directement 
dans le langage du problème à traiter. 

Pour utiliser le programme, il suffira 
de suivre les instructions portées sur 
l'écran pour chacun des quatre cas de 
résolution. 


Il sera possible de connaître les trois 
angles, les trois côtés, les trois hauteurs, 
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GÉOMÉTRIE 


Résolution des triangles 
Programme pour ZX Spectrum 
Auteur Lucien Strebler 

Copyright LIST et l’auteur 


acent 
FAURE € 
i THEN 
THEN GD 
5Q 


509. FARINT 
"EU AT 11 
4 + FF 
NUERZE 1:# 
s FA 


Ne: 
NUERSE 


Li) 
es 


IMPUT "Lalcyl des hauteurs 


Qui OÙ non T{0, 
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BE 
1106 


55 T9 1355 
EL J=9: GO SUE 
FERINT AT 56,29." 
45110: AT 9.20 
+:51:10: AT 10,29; 
+10+.5):1@ 
INPÈT “Calcul des üedia 
QUi OU non Ton: 
a 


Tr 


JT + MENT 
+*o+ 


LCuUL des bissecstr 
Ji OÙ non 


ete ct Qt 2 


A 
Le) 
[ 
Lu] 
ul 
Lo] 


TO 218@ 


ÉRINT ar 14,20: 
bir1o+. 51/10: AT 15,2 ‘ 
ib2+10+.5)/10:AT 18.80, ‘b3= 
NT _ib3+10+.5)/10 
259 INPUT ‘Cercle Lirtonscrit 
3 it f oui OÙ nan IG/nr E£° 


THEN GO 
AND "29 THEN 
THEN GQ TS &E 
OR r$="2" THEN CO 


TD 269 


PRINT AT 17.8 
ircs10+.5) 19 
irix10+.5 


“Egev 7": 
“" OR r$="0" 
281 IF =0 THEN UN 

265 PRINT AT 8,5; 
:AT 9,3:"  PRESSEZ “AT : 
DNE TOUCHE “{AT 11,5:" 


IF INKEYS$Sc:"" THEN 


59 TS 39 


7 60 TO 865 
2 ri S0,SUE 500. PRINT 7 
LE MER véeL) 

310 Co 

AT 1,10: °b= “:b; INUERS 


à 


S 


RhÏhDhDÎDpSN 


T_AT 2.10 


T AT 3. 


“Cote 7 
ses “it; 


NEUT ANGLE À 7 
.10; ‘Az ";as: 
4; "A": GO SUS 940 
LET _n=435: 69 SUE 
LET a=S0R {bt2+ 
(343+FPI-150) 1 
3350 GC SUE 519: PRINT 
3= “;INT (fa+10+,.5) 12 

336 LET nz=bd: G9 SUE 3550 
£S=n: PRINT AT 2,81; "B= ‘ 
1+#100+.7:-:100 

349 LET nzcd: G9 3SUE 2550 
t5= PRINT AT 5,21;"0- 


S+1004+.7) /100 


È DRAM 5,-10,. 
"Cote à Via Pl 
"a; INUERS 


“Cote b ? ":b 
“:b; INVUERSE 1: 


"ANGLE E 7 Ès5 à 

AT 3,10; "Bz ‘;bs; IN. IERSE 2 

0.0;"E": GS SUB 340 

F4 IF 2e b THEN LET 
T b5: ae UE 

CET. SIK 


INPUT 
10; "az 


He 
16; 


àE" 


INPUT 


pi 


is 
"NOT 


3inz 


U6 345 
5G SUE 330: GO T: 
PRINT _INUER 
* À UNE DEUXIE! 
RUE 198: CLS 


Le] 
F 
Le] 


--uuw 
coin 

H 

F 


übbT : 
ie + O0: PU 
H 


D OD EE + 


F Ses 


Lei 


50 SUB 500: FARINT AT 
28,11; "a 
495 PLOT 11,13: DRAH 5,-10, 
PLOT 152,9. DRAU S.10.-,3 
T 161,9: DRAI) 5,10 
4+1Q INPUT * 
AT L: Rae 
«di 
415 Ineur 


“ANGLE E 7 
18i"E= “j;bs: 


20,0; 

429 INPUT ANGLE C ? 
10; "C “; CS; 
20.22: "tr. “60 SUE 340 
425 LET n=b5s: GO SUE 
bd=n: LET n=ts.: GO SUE 


caz=n 

43509 LET 3d=150-bd-£43: :ET 
GS SUE 9559: LET 35 

435 LET bz=3#SIN (bd r/160 
{adxPI-180): LET c= SIN 


“1505 “SIN 
440 &S5 


fadxFP1/1680; 
SUE 516: PRINT AT 1, 


N° 12 - SEPTEMBRE/OCTOBRE 85 


512 ZÈ+s 
HEN LET 1 

S13 ASN 5 

S14 2+xs 
HEN _LET sifzi 

S1i5 LET bd=ASN s 

S15 LET 3in2=8+xs 

HEN_LET sinel 

S17 LET cd=ASN 5 

S13 IF ate:ttz+s 

150-3234 

SEQ IF bt2:ate 

150-bd 

SZE IF ctérate 

150- 

525 

Sëd 

LET 

SES LET RI<S0R (Sri(bteè+ite 
j-2 

SES LET N£=SOR idr(ate+cit 
1°E 

3€ SGOR (2+riatEz+bt 


E : 
GT THUERS EU: 
J:0,3: CRAU IN: ÉS 


F,S8;"hi" AT 18.10: 


" THÊN LET 
ÉeraT AT *,5; 


: PRINT Int 
NGLE IMPCOSSI 


Ci Du 


“24 


0. DRAN © nix 


3559 LET 


MINT am 


INT REZ 


D+INT 
a] 
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Le programme 
dans ses grandes lignes 


Lignes 10 à 34 : menu 

Lignes 100 à 128 : triangle défini par 
abc 

Lignes 130 à 132 : calcul surface et 
périmètre 

Lignes 135 à 
hauteurs 

Lignes 170 à 
médianes 

Lignes 210 à 
bissectrices 

Lignes 250 à 260 : traitement des cer- 
cles inscrits, circonscrits 

Lignes 300 à 345 : triangle défini par 
bca 

Lignes 350 à 395 : triangle défini par 
abB 

Lignes 400 à 455 : triangle défini par 


[aBC 


165 : traitement des 


205 : traitement des 


245 : traitement des 


Sous-programmes 


Ligne 500 : trace le triangle de base 

Ligne 510 : calcule p s A BC 

Ligne 524 : calcule les 3 hauteurs 

Ligne 526 : calcule les 3 médianes 

Ligne 532 : calcule les 3 bissectrices 

Ligne 538 : calcule les rayons des cer- 
cles inscrits, circonscrits 

Ligne 570 : tracé et effacement des 
hauteurs 

Ligne 590 : tracé des médianes 

Ligne 910 : effacement des hauteurs 

Ligne 930 : encadrement des premiers 
résultats 

Ligne 940 : encadrement des entrées 

Ligne 950 : affiche les cas d’impossi- 
bilité 

Ligne 9500 : sous-programme d’enca- 
drement général 

Ligne 9550 : transformation en dms 


Ligne 9560 : transformation en dec | 


Fun Je mn 


IRALRE 


EFINI PAR LH 


RCJACENTS 


PATENT ENT 


Définition des variables 


a, b, c: côtés du triangle 


as, bs, cs: angles au sommet 
sexagésimaux 

ad, bd, cd: angles au sommet 
décimaux 

s : surface 


P : demi-périmètre 

r$, s$, t$ : chaînes de caractères des 
INPUT à options 

0 : oui 

n:non 

z : pour COPY et calculs dms/dec 

mm, ss, e : pour calculs dms/dec 

h1, h2, h3 : hauteurs 

mi, m2, m3 : médianes 

b1, b2, b3 : bissectrices 

re : rayon du cercle circonscrit 

ri: rayon du cercle inscrit 


les trois bissectrices, les trois médianes, 
les rayons des cercles circonscrits et ins- 
crits, le périmètre et la surface. De quoi 
rêver en terminale ! 


On trouvera ci-dessus, illustrée grâce 
à trois copies d’écran, les solutions cor- 
respondant aux cas d’un triangle défini 
par ses trois côtés, d’un triangle défini 
par deux côtés et l’angle compris, et 
enfin d’un triangle défini par un côté et 
les deux angles adjacents. 


Les données du problème apparais- 
sent dans le premier encadré, les résul- 
tats principaux dans les deux autres 
encadrés et les résultats secondaires en 
vrac. 


Lucien STREBLER 
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LA RÉCRÉ DE LIST 


LES JEUX 
ET CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 

Tout d’abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire 
qu'il s'agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d'avoir un ordinateur sous la main. 


39 * 


Messages d'erreur 


Les messages d’erreur qui appa- 
raissent à l’écran ne sont pas tou- 
jours faciles à comprendre, surtout s’ils 
sont en anglais. Pouvez-vous faire cor- 
respondre, à chaque numéro de la liste 
des messages anglais, la lettre de son 
équivalent français ? 
Messages anglais 
1. Non dimensioned variable has 
subscript 
2. Invalid variable bounds 
3. One or more invalid chars skipped ; 
4. Non dummy has variable ; : ‘ * 6. Mismatched parentheses 


dimension 7. Unnumbered statement follows 
5. Substring out of range | ee transfer 
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8. Transferts into do loop 

9. Improper parameter matching 

10. Subscript out of range 

Equivalents français 

A. Bornes d’une sous-chaîne de 
caractères non compatibles avec la 
dimension, ou sous-chaîne trop longue 

B. Une variable déclarée comme sim- 
ple est utilisée avec un indice 

C. Limites d’une variable invalides 
(dimensionnement erroné d’un tableau) 

D. Un tableau est déclaré avec un 
nombre d’éléments variable 

E. Paramétrage incorrect (la liste des 
paramètres d’un sous-programme est 
incompatible avec la déclaration) 

F. Une instruction GOTO effectue un 
branchement à l’intérieur d’une boucle 

G. Une instruction non étiquetée suit 
un GOTO (elle ne peut donc jamais être 
exécutée) 

H. Un ou plusieurs caractères ne sont 
pas reconnus et sont sautés 

1. Indice non compatible avec la 
dimension d’un tableau 

J. Le nombre de parenthèses gauches 
est différent du nombre de parenthèses 
droites 


pe 


40" 


Optimisation 


On considère le programme sui- 


vant : 
10 FOR I=NI TO N2 
20 AD) = 2*1 +3 
30 FOR J=1 TO 1000 
40 FOR K=1 TO 1000 
50 B(J,K)=0 
60 NEXT K 
70 NEXT J 
80 NEXT I 


Le temps de calcul de ce programme 
n’est pas négligeable. En effet, les bou- 
cles des lignes 30 et 40 allant de 1 à 1000, 
la ligne 50 est exécutée 1000000+(N2 — 
N1 +1) fois. Il s’avère alors nécessaire 
d’optimiser ce programme qui initialise 
les tableaux A et B. On a donc pensé le 
remplacer par : 

10 FOR I=NI TO N2 
20 A(I)=2+1+3 

30 NEXT I 

40 FOR J=1 TO 1000 


50 FOR K=1 TO 1000 
60 B(J,K)=0 

70  NEXTK 

80 NEXT J 


Mais ce programme devient faux. 
Pourquoi ? 
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Trouver des formules 


L'opérateur MOD calcule le reste 

de la division entière. Ainsi, I 
MOD 2 vaut 0 si I est divisible par 2, 
et 1 dans le cas contraire. Donc, la ligne 
de programme : IF (1 MOD 2)=0 
THEN X=A ELSE X=B, affecte la 
valeur de A à X si I'est pair, et la valeur 
de B si I est impair. Cette ligne peut être 
remplacée par une simple expression 
arithmétique. L’objet de ce problème 
consiste alors à trouver le plus grand 
nombre d’expressions qui remplacent 


cette ligne. Pour notre part, nous en 
avons trouvé quatre. 


Toutes les opérations ou fonctions 


disponibles sur votre ordinateur peu- 
vent, bien entendu, être utilisées. 


au 


42 


Les deux plus grands 


Si le problème de la recherche du 
plus grand élément d’un tableau 
est résolu, celui de la recherche des deux 
plus grands éléments peut encore être 
soulevé. Le programme suivant semble 
proposer une solution : 
10MI=I 
20 FOR I=2TON 
30 IF T(MI)<T(I) THEN Mi-I 
40 NEXT I 
50 M2=1 
60 FOR 1-2 TON 


Les solutions 

de ces jeux se 

trouvent à la 
page 78 de 


70 


IF T(M2)<T(I) AND T(MI1) 
< >T(I) THEN M2-=I 

80 NEXT I 

90 PRINT T(M1),T(M2) 


Ce programme est composé de deux 
boucles qui permettent de rechercher 
respectivement le premier et le second 
plus grand élément du tableau T. Une 
recherche simultanée de ces deux élé- 
ments peut être faite avec une seule 
boucle : 

10 MI1=1 
20 M2=2 
30 FOR I=3 TO N 


40 IF T(MI)<=T(I) THEN Mi 
= 1: GOTO 60 
50 IF T(M2)<T(I) THEN M2=I 


60 NEXT I 
70 PRINT T(M1),T(M2) 


Ce dernier programme est plus court 
et plus rapide que le précédent. Toute- 
fois, rien ne sert d'améliorer un pro- 
gramme qui ne fonctionne pas. En effet, 
si les résultats attendus sont le plus sou- 
vent justes, ils sont faux dans certaines 
circonstances. Comment corriger cha- 
cune de ces deux versions ? 


LIST - PAGE 23 


LA RÉCRÉ DE LIST 


43° 


Langages 


+ 


PA 


ré 


Du 


VE SAIS : C'EST 

L'ABRÉVIATION }x2< 

DE "APPLE"! LEE 
_ 


La liste suivante est constituée 
de dix noms de langages informa- 


tiques. Pour chacun d’entre eux, 


pouvez-vous indiquer la signification de 


l’abréviation utilisée ? 

1. APL 

2. Basic 
3. Cobol 
4. Fortran 
5. GAP 
6. Lisp 

7. LSE 

8. Pascal 
9. PL/1 
10. Prolog 


Tous les sens 


Selon les langages, une même ins- 4% 


truction peut avoir différents sens. 


Racine numérique 


La racine numérique d’un nombre 

(ou chiffre résiduel) est le chiffre 
qui résulte de la somme des chiffres qui 
composent le nombre, somme effectuée 
autant de fois qu’il est nécessaire pour 
arriver à une valeur sur un chiffre. 


Par exemple, la racine numérique R 
de 156 s’obtient de la manière suivante : 
°e 156 donne 1+5+6=12; 

e 12 donne 1+2=3. 


Donc R=3. Trouver la fonction la 
plus courte possible, à programmer en 
Basic ou en Pascal, qui retourne la 
racine numérique d’un nombre. 


Par exemple, les résultats de l’expres- XV / 


sion A = B=0 varient selon les langages. 
Ainsi, on trouve pour la variable A : 
0 avec le langage L 
1 avec le langage M 
2 avec le langage N 


Compte tenu de ces résultats, pouvez- 
vous expliquer comment agit chacun de 
ces langages ? 
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46 | 


Rapports ambigus 


Un moyen d’améliorer les perfor- 

mances d’un programme est de 
remplacer les divisions par des multipli- 
cations, autant qu’il est possible. En 
effet, si en une seconde l’ordinateur 
effectue 575 multiplications, dans le 
même temps, il ne traite que 312 divi- 
sions. Une économie de plus de 45 % 
de temps est donc envisageable. 


Sachant cela, un programmeur astu- 
cieux remplaça, dans un programme, la 
comparaison de deux fractions par celle 
de deux produits. Le test IF 
(A/B) > (C/D) THEN … devint donc 
IF (A*D) > (C+xB) THEN … où A, BB, 
C et D sont des variables réelles stricte- 
ment positives. 


Un rapide calcul montre que ces tests 
sont équivalents. Et pourtant une erreur 
s’est déclenchée à l’exécution du pro- 
gramme ainsi modifié. Quel est le libellé 
de cette erreur ? 


Les surprises du calendrier 


Le 31 octobre, veille de à Tous- 
saint, n’est pas le 25 décembre, 
jour de Noël. Mais pouvez-vous mon- 
trer que : 
31 OCT =25 DEC 


Se OÙ, Se © 


+ , 7 


Li DS 2 


SOLUTIONS 
DU NUMÉRO PRÉCÉDENT 


ES solutions présentées ici 
répondent aux problèmes posés 
dans le précédent numéro de LIST. 


Ce ne sont pas forcément 


les meilleures ! 


84 
Rotations 


Pour qu’un sous-programme 

chargé d'effectuer une rotation de 
pas P, dans un tableau T de longueur 
L soit le plus rapide possible, il est 
nécessaire de réduire la valeur du pas P. 
Ainsi, le premier indice du tableau étant 
égal à 1, une rotation de pas L+1 est 
équivalente à une rotation de pas 1. En 
outre, toutes les rotations de pas égal à 
0, L, 2*L, ... ne doivent pas être trai- 
tées, ces pas représentant l’absence de 
rotation. 


Enfin, il faut songer aux valeurs de pas 
négatives. Dans ce cas, on ajoute au pas 
la valeur L, autant de fois que nécessaire 
pour qu’il devienne positif. L’extrait de 
programme ci-dessous effectue la rota- 
tion des valeurs du tableau T le plus 
rapidement possible. Il accepte toutes 
les valeurs entières du pas P. Le résul- 
tat est donné dans le tableau U. L'opé- 
rateur DIV renvoie le résultat entier de 
la division appliquée aux deux nombres 
qui l’entourent. 

P=P-Lx+(P DIV L) 
IF P<O THEN P=P+L 


FOR I1=1 TO L 
U(A+P-—1)-Lx(([+P-—1) DIV L) 

+1)=T() 

NEXT I 
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30 


Le langage du programmeur 


de Le programmeur un peu badin, qui 

appelle fréquemment une routine 
baptisée GIRL, programme en Fortran. 
Dans ce langage, les sous-programmes 
sont déclarés par SUBROUTINE et 
activés par CALL.. Notre programmeur 
déclenche donc le traitement de la rou- 
tine par l'instruction CALL GIRL ! 


36 
Dé 


Opérations prioritaires 


Avec un ordinateur effectuant les 

opérations sur 16 bits, l'égalité 
Ax(B/C)= (AxB)/C n’est pas toujours 
vérifiée. C’est le cas en particulier, lors- 
que les valeurs de À et B sont telles que 
leur produit dépasse 32767. En effet, 
pour l’évaluation de Ax(B/©C), le calcul 
de B/C est effectué en premier, grâce 
aux parenthèses. Le résultat de cette 
division est un nombre réel qui sera 
alors multiplié par A. 


Lors du calcul de (AxB)}/C, la multi- 
plication est effectuée en priorité. Son 


résultat entier n’est pas converti sous 
forme réelle et, s’il dépasse 32767 (c’est- 
à-dire 2°15-1), un débordement se pro- 
duit. Il n’est généralement pas signalé 
par les ordinateurs. Le résultat est alors 
faux.et, après la division par C, on ne 
retrouvera pas le même résultat que 
pour la première expression. 

Par exemple, avec A = 200, B = 300 et 
É= Ton 4: 
Ax(B/C)=60000.0 et (A+xB)/C = 
—5536.0 (—5536.0 est le résultat de 
6000 — 65536, 65536 étant égal à 2° 16). 


Ed 
Dans un fichier d'adresses 


à Si l’on décide de remplacer toutes 

les occurrences de ‘‘et”’ par ‘‘&’° 
dans ur fichier d'adresses, un intitulé tel 
que ‘M. et Mme Peter Maigret”’ 
devient “M. & Mme P&er Maigr&”. Ce 
qui risque de surprendre le destinataire. 
Pour éviter cette erreur, il faut plutôt 
remplacer la chaîne ‘* et ”” (un espace- 
et-un espace) par la chaîne ‘* & ”” (un 
espace-&-un espace). 


Ed 
Arrondir des entiers 


Un entier N peut être arrondi sur C 
chiffres avec quelques lignes de Basic : 
I0N=104N 
20 N=INT(N/10°C) 
30N=N+S 
40 N=INT(N/10) 

50 N=NxN10°C 

En prenant N = 18392, on trouve bien 

que ce nombre arrondi sur deux chiffres 


vaut 18400 ; arrondi sur trois chiffres, 
il vaut 18000. 
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LES COUPS D'OEIL DE LIST 


UN 


ÉDITEUR DE DESSINS 


POUR DAI 


E Dai, c'est connu, est apprécié pour ses 
qualités graphiques. Depuis son Basic, 

il est relativement aisé de confectionner de jolies 
images. Mais il faut dire que cela devient 
rapidement fastidieux, en raison de l'abondance 
de lignes de commandes à écrire. C’est là 
qu'intervient Éditeur de dessins. Ce logiciel dessine 
en temps réel au moyen d’une manette de jeux ou, 
mieux, d'une souris, et conserve en fichier l'œuvre 


lainsi créée, 


Le logiciel Éditeur de dessins se 

présente sous forme de cassette 
audio, ou micro-cassette numérique, et se 
charge comme du langage-machine 
(UT R). Hélas, son système de protec- 
tion emploie une procédure inélégante 
et gênante pour l'utilisateur. Sans 
« vendre la mèche », je puis vous dire 
que cette protection consiste à charger 
un fichier énorme, qui va de l’adresse 
0 jusqu’à l’aire du STACK du proces- 
seur. Le démarrage automatique utilise 
le détournement d’un vecteur qui abou- 
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tit normalement à un message d’erreur. 
En conséquence, le chargement est très 
long (pas loin d’un quart d’heure), et 
moins fiable qu’une procédure normale. 
C’est dommage, car le logiciel propre- 
ment dit est plein de qualités. 


J'ai essayé Éditeur de dessins avec la 5-17 
souris distribuée par le club IDC. Dans 


ces conditions, le clavier n’est pratique- 
ment pas employé, et c’est très agréa- 
ble. Au bas de l’écran, un bandeau con- 
tient les icônes mnémotechniques des 


différentes fonctions disponibles. Il suf- 
fit de pointer une icône avec la flèche 
qui symbolise l'emplacement du cur- 
seur. Ensuite, on « clique » la souris, et 
la commande est active. 


Par exemple, pour écrire du texte, à 
un emplacement quelconque du dessin, 
il faut pointer la case contenant la let- 
tre « W ». Dès ce moment, toute lettre 
frappée au clavier remplace à l’écran la 
flèche du curseur. 


En appuyant sur la touche verte (ou 
grise) portant le symbole « flèche en 
haut » (en haut à gauche du clavier), du 
texte peut être tapé : il s’inscrit à partir 
de la position courante du curseur. C’est 


PA taun 
MO ASS CR 
che 
CL) 

à AL FAN 


"Eu 
La page de présentation du 


logiciel : écriture cursive et 
caractères d'imprimerie 


E COSTA LALTER ET I.0 | Ë 
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SO D a nu eo ee Re 


OS | 


ER CE ON ee 


à ce moment qu’intervient la souplesse 
d'emploi d’Éditeur de dessins : ce texte 
a pu être formé n’importe où, dans 
l'écran, car il n’est pas encore incrusté. 
En frappant la touche RETURN, l’en- 
semble du texte devient le curseur, et 
peut ainsi être déplacé avec la souris, 
n'importe où dans la page graphique, 
sans écraser ce qui s’y trouve déjà. C’est 
en cliquant la souris que l’on incruste 
le texte à l’endroit désiré, et autant de 
fois que l’on veut, où l’on veut. 


de Macintosh 


De plus, Éditeur de dessins comporte 
un jeu de caractères redéfinissables au 
gré de l’utilisateur (commande « T »). 
Le symbole choisi est amené dans le rec- 
tangle situé en bas à gauche de la page 
de redéfinition, et la modification se fait 
avec les touches de déplacement du cur- 
seur. On peut ainsi fabriquer n’importe 
quel symbole ou lettre, voire de petits 
dessins (un petit bonhomme et un chien 
font déjà partie du jeu de base). 


Hormis ces préparatifs, la phase de 
réalisation du dessin se résume à cliquer 
une fonction et à la « coller » dans la 
page graphique, à l’endroit désiré. Il est 
ainsi facile de créer une série de cercles 
concentriques : on choisit le centre, en 
pointant l’icône POSITION (la flèche, 
dans le bandeau de commande), puis on 
clique le curseur à l’endroit voulu dans 
le dessin. 


Ensuite, il suffit de choisir la fonction 
CERCLE, et d’aller pointer un endroit 
de la circonférence désirée pour obtenir 
son tracé. Même philosophie pour faire 
des « boîtes » vides ou pleines (BOX, 
et FILL) : après sélection de la fonction, 
on clique la position de deux coins 
opposés, et c 


c’est tout. 


[Ë 


A 


Mi 


MU NTI ME 


Exemple de dessin : c'est la copie 
sur imprimante graphique qui a 
déformé les cercles 
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DH 
D123456788::{=27 
AÔBCDEFGHIJKLMNO 
FORSTUUNXYZC41tiÿ 
DÉFIS V LAN A ES 
+ +R! RER 


Û 


La redéfinition du jeu de caractères 


Parmi les autres options se trouvent 
encore les classiques que sont les tracés 
de droites, de rayons concentriques. Le 
quatrième icône, en partant de la gau- 
che sur le bandeau de commande, per- 
met le dessin « à main levée » : le pro- 
gramme produit une trace qui suit fidè- 
lement l’évolution de la souris. On peut 
ainsi écrire du texte en cursive, quasi- 
ment comme on le ferait avec un 
crayon. L'effet est surprenant. 


Choisissez 


yos couleurs 


Éditeur de dessins possède également 
des fonctions imitant l’aérographe : 
l'utilisateur peut choisir neuf tailles de 
points à inscrire dans son travail, et cha- 
que point peut associer deux couleurs, 
pour obtenir des nuances. Cela fera 
peut-être moins regretter l’obligation de 
se limiter à quatre couleurs (choisies 
parmi seize), d’autant que l’icône n° 7 
(le « pinceau ») donne la fonction 
PAINT, avec possibilité de tramage en 
deux couleurs. Dans ce cas, la seule res- 
triction importante est la nécessité de 
peindre une surface fermée, et limitée 
par un trait d’une couleur différente de 
celles employées pour la peinture. 


Si la surface est imparfaitement fer- 
mée (un pixel ouvert suffit), le coloriage 
déborde, et envahit. tout l’écran ! 
Frayeur garantie, surtout après de lon- 
gues heures de labeur, mais, pas de 
panique : le mode d’emploi dit ce qu’il 
faut faire dans ce cas. On appuie sur la 
touche BREAK, qui ramène au menu 
initial, et on tape « E », pour faire redé- 
marrer le programme, sans perdre le 
dessin. 


Imaginons maintenant que ce dessin 
présente une erreur manifeste de 
conception. Il faut le corriger, et le pro- 
gramme ne s'intitule pas Éditeur pour 
rien. En effet, toutes les phases de réa- 


lisation du dessin sont mémorisées dans 
un fichier numérique. En cliquant la 
onzième fonction (les « ciseaux »}), on 
passe dans le mode d’édition : le dessin 
se reconstruit pas à pas, en donnant des 
indications (dans les quatre lignes de 
texte, tout en bas de l’écran) : com- 
mande active, couleur, coordonnées, 
occupation du fichier. On peut alors 
corriger ce qui ne va pas, insérer d’au- 
tres éléments de dessin, ou encore en 
effacer, si l’on juge telle ou telle partie 
inesthétique ou inappropriée. Ainsi, toute 
latitude est laissée à « l’artiste » pour 
peaufiner son chef-d'œuvre. 


Bien entendu, le travail achevé peut 
être sauvé sur mémoire de masse et rap- 
pelé ensuite. Il existe même une com- 
mande (MERGE) permettant la fusion 


Le logiciel en quelques lignes 
Nom : Éditeur de dessin 
: Ordinateur : Dai PC et DaiT 
Forme : cassette audio où micro-cassette 
digitale 
… Distribué par : International Dai Club (IDC) 
. » Fabrice Duluins, 4, allée Tour Renard, 
B-1400 Nivelles, Belgique, ou 
° Bruno Delannay, résidence « Les Acacias », 
bât, B3, avenue de Saige, 33600 Pessac, 
France 
Prix public: 195 FF (cassette audio), 
218 FF (cassette digitale) 
… Principales orientations : création de des- 
sins en haute résolution en temps réel, au 
moyen d'une manette de jeux ou d'une sou- 
ris. Graphisme et texte mélangeables sans 
restriction, 


de plusieurs fichiers picturaux. L’utili- 
sateur peut ainsi confectionner des frag- 
ments de graphisme et. les assembler 
selon ses besoins. Détail intéressant, le 
fichier numérique codant le dessin est 
beaucoup moins long à charger qu’une 
sauvegarde d’écran graphique haute 
résolution, et il est certainement possi- 
ble de le rappeler depuis un programme 
Basic (à condition d’avoir percé les 
secrets de son codage). 


Pour ce qui est de l’apprentissage, il 
faut bien avouer que la présence du ban- 
deau d’icônes facilite grandement la 
maîtrise du logiciel, et la manipulation 
de la souris devient très vite naturelle. 
Le concept du « cliquer-coller » se 
marie particulièrement bien avec un édi- 
teur de dessins, et c’est le cas ici. 

Voici en définitive un logiciel que tous 
les Daïstes amateurs de graphisme se 
doivent au moins d’essayer, car il est à 
la fois simple et puissant. 


Alain MARIATTE 
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ASSEMBLEUR TO7 ET T07/70 


ADRESSAGE 


IMMÉDIAT, 


_ ADRESSAGE ÉTENDU 


EN chapitre essentiel de la programmation en 
L/ Assembleur est celui qui traite des modes 
d’adressage. Le microprocesseur 6809 en propose 
neuf qui constituent une des principales raisons 
de sa puissance logicielle. L'étude de deux de ces 
modes, immédiat et étendu, met en évidence leur 


importance. 


Choisir un mode d’adressage 

revient à choisir la façon selon 
laquelle une valeur est chargée à une 
adresse ou dans un registre. Le mode le 
plus simple est le mode immédiat : un 
registre du microprocesseur est chargé 
avec une valeur. 


Par exemple, l'instruction LDA #$1A 
contient tous les renseignements de 
l’adressage immédiat. Les deux premié- 
res lettres, LD, sont l’abréviation de 
load, charger. Le premier A représente 
lPaccumulateur A. Le signe # (cross- 
hatch) caractérise l’adressage immédiat, 
le signe $, l’hexadécimal. Et 1A est la 
valeur hexadécimale à charger. Ainsi, 
l'instruction LDA #$1A signifie : char- 
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ger, en mode immédiat, la valeur hexa- 
décimale 1A dans le registre A. 


Si l’on travaille sur l’accumulateur D 
(qui dans ce cas est sur 16 bits puisqu’il 
résulte de la concaténation des deux 
accumulateurs A et B, chacun de 8 bits), 
on écrira : LDD #$20A2. Cette fois, on 
charge la valeur hexadécimale 20A2, 
représentée sur 16 bits (8354 en 
décimal). 

On peut également charger en mode 
immédiat les registres d’index 16 bits, 
X et Y, et les piles système et utilisateur, 
S et U. Les codes mnémoniques sont 
alors : LDX, LDY, LDS et LDU. 


D’autres instructions du 6809 fonc- 
tionnent en mode immédiat. C’est le cas 


de EXG, l'instruction qui permet 
d’échanger les valeurs de deux registres 
(le SWAP du Basic en quelque sorte). 
Par exemple, la suite d’instructions : 

LDA #$1A 

LDB #$20 

EXG A,B 

échange les contenus de A (ici 1A en 
hexa) et de B (20 en hexa). Le code-objet 
de cette suite d’instructions est : 

86 1A (86 pour LDA en mode 
immédiat) 

C6 20 (C6 pour LDB en mode 
immédiat) 

IE 89 (IE pour EXG, 8 pour A et 9 
pour B). 


Un bon endroit 


pour lire 


Comme il ne nous est pas possible de 
lire directement les valeurs contenues 
dans A et B, il faut commencer par les 
transférer à des adresses mémoire qui 
pourront être lues en Basic avec 
PEEK(ADR). Les instructions de stoc- 
kage, STA et STB, doivent donc être 
suivies de l’adresse où l’on veut stocker. 
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1@ CLEAR, &H9FFF 


De On entre ainsi dans le mode étendu. Par 


” exemple, les deux lignes : 
20 FOR. I=i TO 13 | STA SDFFE | 
30 READ AS:A$="£&H"+AS:AZVAL(AS) STB $DFFF 
| stockent les valeurs contenues dans A 
40 POKE &HAGDO+T,A et B respectivement aux adresses SDFFE 
5Q NEXT et $SDFFF. Le code-objet de ces instruc- 
E tions est : 
&Q EXEC &HADDG | B7 DFFE (B7 pour STA en mode 
étendu) : 
7@ PRINT "JE TROUVE, EN &HDFFE, LA VALEUR "; F7 DFFF (F7 pour STB en mode 
HEX# (PEEK(&HDFFE ) ) a tendu) ; 


Il suffit alors d’implanter et de lan- 
cer la routine réalisant ces opérations à 
l’aide du programme Basic d’implanta- 
tion (ci-contre). Ce programme se ter- 
mine par deux lignes demandant l’affi- 
chage des valeurs contenues aux adres- 
ses spécifiées : elles ont bien été échan- 
gées. La dernière instruction machine, 
39, correspond à RTS (retour au 
système). C’est elle qui redonne la main 
au Basic. 


8 PRINT *JE TROUVE, EN &HDFFF, LA VALEUR "; 
HEX$(PEEK(E&HDFFF )) 

90 DATA 86,1A,Cé6,20,1E,89,27,DF,FE,F7,DF3FF; 
39 


=. Lee tn, 


Vas, habitez 


“ Dans une boite, 
eZ 7 
vos parents : 


Oh , vous alors, 
vous êtes du genre, 
“adressage immédiat" /;. 


l'adresse d’une autre boite... 


Dans le mode d’adressage étendu, 
l’opérande de 16 bits représente 
l’adresse où se trouve la valeur concer- 
née par cette instruction, où encore 
l’adresse où l’on voudra ranger le résul- 
tat de l’exécution de cette instruction. 
Ce mode peut également être utilisé avec 
LD. Par exemple, LDA $DFFF ira cher- 
cher la valeur contenue en DFFF et la 
chargera dans l’accumulateur A. Il est 
possible de détourner plus encore le che- 
min de l’adressage en utilisant l’adres- 
sage étendu indirect. Dans ce cas, l’opé- 
rande est l'adresse où se trouve l’adresse 
contenant la valeur à traiter ! Ainsi, 
dans l'exemple précédent, l'adresse 
$DFFE contenant $20 et l'adresse 
$DFFF contenant $1A, si l’on écrit : 
LDA [$DFFE] (les crochets symbolisent 
l’adressage étendu indirect), on ira cher- 
cher en $DFFE, le premier octet, soit 
$20, puis à l'adresse suivante $SDFFF, 
le deuxième octet, soit 1A. Ces deux 


… octets forment alors l’adresse $201 A où 
Un exemple d'adressage étendu indirect l'on ira chercher la valeur à charger 

Mnémoniques Code-objet dans A. , Pr 

ORG $A000 Pour appliquer ce mode d’adressage, 

LDA #$20 86 20 sa : ne . il suffit d’implanter la routine ci-contre 
| LDB #$I1A C6 IA pi on. À en $SDFFE (Un exemple d’adressage étendu indi- 
| . De . Le on stocke B en SDFFF rect), selon le même principe que la pré- 
| LDA (SDFFE 9F DF FF on charge A avec le contenu de cédente implantation. Ce n’est qu’un 

l ] l’octet dont l’adresse se trouve exemple, chacun peut trouver ses pro- 

. en $SDFFE et $DFFF pres applications. 

STA $SDFFF B7 DF FF on stocke cette valeur en $DFFF 

RTS 39 nt , 

END Jean-Paul CARRE 
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PROCÉDURE PASCAL 


LECTURE D'UN CODE 


OUR qu'un caractère frappé au clavier soit 


considéré comme un 


il faut une procédure. C'est l’objet de celle qui est 
proposée ici, Avec quatre modes d'entrée 
possibles, elle devient efficace et facile à utiliser. 


Les codes ASCII jouent un rôle 

important dans les programmes, 
surtout si ces derniers sont un peu tech- 
niques. Par exemple, un correcteur (pat- 
cher, en anglais) qui modifie la valeur 
d’un octet en mémoire centrale ou sur 
disque, nécessite la saisie de valeurs 
ASCII, sous la forme la plus souple 
possible. 


Un autre exemple est celui d’un pro- 
gramme correctement paramétré qui 
mémorise dans un fichier tous les carac- 
tères transmis à l'imprimante pour 
qu’elle passe en caractères expansés, 


normaux, réduits ou campactés. Là 


encore, la saisie des codes ASCII doit 
être facilitée. En effet, pour modifier un 
octet ou indiquer le code de contrôle 
d’une imprimante, il faut pouvoir entrer 
les valeurs sous plusieurs formes. Tel 
code est connu sous sa valeur décimale 
ou hexadécimale, tel autre l’est sous son 
symbole ASCII, ou sous son caractère 
de contrôle : autant de possibilités que 
doit proposer la fonction de saisie. 
La procédure Pascal qui permet de 
saisir au clavier un caractère considéré 
comme un code ASCII est déclarée par : 


procedure Lecture-ascii (var ascii : char ; var erreur : boolean) ; 
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ASCII 


code ASCIL en Pascal, 


dE ais vous 
DONNER LECTURE 
PU CODE …. 
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Principaux caractères interceptés 


par les moniteurs des systèmes d'exploitation 


même les nombres compris entre 0 et 
255 sont acceptés. Par exemple, le 
caractère de contrôle ctrl M est saisi en 
entrant 13. Les symboles dont le code 


Caractères |Code ASCII 


Effet produit 


numérique est compris entre 0 et 9 doi- 


vent être entrés sur deux chiffres, 00 à 
09. L’oubli de cette règle entraîne une 


ctrl @ 0 Correspond au BREAK, et produit l’arrêt du pro- 
gramme en cours d'exécution. 
L : 
ctri C . 3 


Est associé à la fin de fichier, et termine prématurément 
la saisie au clavier. 


erreur : le chiffre entré est alors com- 
pris par la procédure comme le carac- 


l’écran. 


Provoque le FLUSH, c’est-à-dire l’arrêt de l’affichage à 


| tère correspondant à ce chiffre, et non 


comme le caractère dont ce chiffre 


Correspond au BACKSPACE, c’est-à-dire à l’effacement 
du dernier caractère entré. 


représente le code. Ainsi, le caractère ‘0‘ 
qui a pour mode ASCII 48, est différent 
du caractère ctrl@dont le code ASCII 


Identique à la touche return 


est 0. 


Provoque un STOP, c’est-à-dire la suspension de l’exé- 
cution du programme en cours. 


Enfin, le quatrième mode d’entrée est 
réservé aux caractères de contrôle. Il 


| 


| saisie. 


Efface tous les caractères entrés sur la ligne en cours de 


Le premier paramètre, ASCII, est un 
caractère qui est retourné par l’activa- 
tion de cette procédure. II contient le 
symbole entré au clavier, soit directe- 
ment, soit par un de ses codes. 


L’autre paramètre, ERREUR, est une 
variable logique, qui prend donc une des 
deux valeurs false (faux) ou true (vrai). 
La paramètre indique si l’entrée est cor- 
recte ou non. Dans le cas où ERREUR 
est positionné à vrai, la saisie ne corres- 
pond pas à un caractère, et la valeur de 
ASCII n’est pas modifiée par la 
procédure. 


Contrôler 


les entrées 


Afin que la saisie d’un symbole 
ASCII soit effectuée de manière simple, 
plusieurs modes d’entrée sont possibles. 
Le premier, le plus simple, consiste à 
entrer un caractère. Par ce mode, pres- 
que tous les symboles présents sur une 
touche du clavier utilisé peuvent être 
introduits. Ainsi, pour entrer le carac- 
tère *S”, il suffit de frapper la touche S 
suivie de return. Il en va de même pour 
les caractères de contrôle : le code ctrl 
G est entré, par exemple, par l’appui sur 
les touches ctrl, G puis return. Ce mode 
d’entrée présente toutefois deux limita- 
tions. D’une part, seuls les symboles dis- 
ponibles au clavier peuvent être intro- 
duits (pour les autres caractères, il faut 
utiliser un autre mode). D’autre part, 
certains caractères de contrôle sont 
interprétés par le moniteur du système 
d’exploitation. La liste de ces caractè- 
res est variable d’un système à l’autre, 
mais ceux qui sont le plus souvent inter- 
ceptés par les moniteurs sont réunis 
dans le tableau ci-dessus. 
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Avec le deuxième mode de saisie, tous 
les caractères de contrôle peuvent être 
entrés, mais sans être frappés directe- 
ment au clavier. Ils doivent être précé- 
dés du symbole ‘ ‘. Ainsi, l’entrée de 
ctri S se fait par ‘ S’ suivi de la touche 
return. 


Le troisième mode d’entrée des carac- 
tères ASCII s’effectue directement avec 
le code numérique. De cette façon, 


Lecture d’un code ASCII 
Procédure Pascal 


Auteur Thierry Chamoret 
Copyright LIST et l’auteur 


permet de les saisir sous la forme de leur 
mnémonique. Par exemple, à ctrl H qui 
est associé à la touche marquée BackS- 
pace (ou flèche à gauche) correspond le 
mnémonique BS. La saisie a lieu indif- 
féremment en majuscules ou en minus- 
cules. La liste des mnémoniques peut 
être reconstituée à partir du texte de la 
procédure. 


De nombreux aspects du langage Pas- 
cal apparaissent dans cette procédure. 
Ainsi, dès son entrée, un chaîne de 
caractères est lue au clavier et analysée 
par la procédure CATEGORIE- 
SAISIE. La valeur retournée est alors : 


procedure lecture_ascii (var ascii : char ; var erreur : boolean) ; 
type catesai — (caractere, controle, nombre, mnemonique, inconnu) ; 


var entree : string ; 
code : integer ; 
function categorie_ saisie (chaine 
begin 
if lenght (chaine) < = 0 


: string) : catesai ; 


then categorie _ saisie : = inconnu 


else 
if lenght (chaine) = 1 
then categorie saisie 
else L 
if chaine [1] = ” ? 


: = Caractere 


then categorie_ saisie : = controle 


else 


if chaine [1] in [’0”..9”] 
then categorie_saisie : = nombre 
else categorie __ saisie : = mnemonique 


end ; 


function valeur__decimale (chaine : 


var valeur, i : 
begin 
valeur : = 0; 


integer ; 


string) : integer ; 


for i : = 1 to length (chaine) do 


if chaine [i] in [0°..9] 
then 
valeur : = 10xvaleur + 
valeur __ decimale : = valeur 
end : 


ord (chaine fil) — ord (0°) ; 


>>> 
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>>> 


function valeur_ascii (mnemonique : string) : integer ; 


var valeur : 
procedure majuscules (var chaine : 
var i : 


integer ; 


begin 


for i : 


integer ; 


= 1 to length (chaine) do 


if chaine [i] in [’a°’..’7/] 


then 
chaine fi] 


end ; 


function val_0_a__15 (mnemonique : 


begin 


val_0_a_15 : 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 


end ; 


function val_16_ 


begin 
val__16__a_127 : — 


if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 
if mnemonique 


end ; 
begin 
majuscules (mnemonique) ; 


valeur : = 
if valeur <0 then valeur : = 


val__0 


valeur_ascii : = 


end 
begin 
code : 


, 


CR à 


readin (entree) ; 
case categorie __ saisie (entree) of 


caractere : 
controle : 


nombre : 


code : = 


UONONONONOUONOUOU NOUNOU ON HU 


a 


CC CSS D | 


_a__15 (mnemonique) ; 
val__16__a__127 (mnemonique) ; 


string) ; 


= chr (ord (chaine [i]} — ord (’a’) + ord (’A’)) 


"NUL’ 
’SOH”? 
"STX’ 
’ETX’ 
’EOT”’ 
"ENC 
’ACK’ 
BEL’ 
°BS’ 
HT” 
’LF”’ 
VT’ 
FF 
CR’ 
SO’ 
*S 


then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 


__127 (mnemonique : 


valeur 


if length (entree) = 
if (length (entree) = 
then code : — 


then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 


1 then code : 
2) and (entree [2] in [@’..’_’]) 
ord (entree [2]) — ord (@') ; 


string) : integer ; 


val__0_a_15 : 
val__0_a_15 : 
val_0__a_15 : 
val_0_a__15 : 
val_0_a__15 : 
val_0__a__15 : 
val__0__a_15 : 
val_0_a_15: 
val__0_a__15 : 
val__0_a_15 : 
val 
val_0_a__ 
val_0__a__ 


02. 15 : 


string) : integer ; 


WONOUOUONONOUON NOUNOU UN 


val__16__a__127 : 
val_16__a_127 : 
val_16__a__127 : 
val_16_a_127 : 
val__16_a__127 : 
val_16__a__127 : 
val_16__a__127 : 
val__16__a__127 : 
val_16__a__127 : 
val__16__a__127 : 
val__16__a_127 : 
val_16__a__127 : 
val_16_a__127 : 
val_16__a__127 : 
val__16__a__ 127 : 
val__16__a__127 : 
val__16__a__127 : 


AU UE OU OU OU ONU OUEUNUNUH 


= ord (entree [1]) ; 


valeur _decimale (entree) ; 


mnemonique : code : 
inconnu : ; 


end ; 


€TTeur : 


if not erreur then ascii : 


end ; 
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= valeur__ascii (entree) ; 


— not (code in [0..255]) ; 


= chr (code) 


16 else 
17 else 
18 else 
19 else 
20 else 
21 else 
22 else 
23 else 
24 else 
25 else 
26 else 
27 else 
28 else 
29 else 
30 else 
31 else 
127 


e soit caractere, si un symbole ASCII 
simple a été entré ; 

e soit controle, si la chaîne saisie com- 
mence par le symbole ‘ ‘ qui annonce 
un caractère de contrôle ; 

. soit nombre, si la chaîne contient une 
valeur numérique correspondant à un 
code ASCII ; 

e soit mnemonique, si l’entrée corres- 
pond au mnémonique d’un code 
ASCII ; 

e soit, enfin, inconnu, si rien n’a été 
entré. 


Trois fonctions 


essentielles 


A partir de cela, la procédure princi- 
pale, LECTURE-ASCII, oriente le trai- 
tement sur l’une des trois fonctions 
chargées de rechercher le code corres- 
pondant à la chaîne entrée. 


La fonction VALEUR-DECIMALE 
est une version simplifiée de la procé- 
dure CONVENTIER déjà rencontrée 
dans LIST (voir LIST 4, page 49). Elle 
calcule la valeur numérique présente 
dans la chaîne passée en paramètre. La 
fonction VALEUR-ASCII recherche le 
code correspondant au mnémonique 
transmis en paramètre. Tout d’abord, 
elle convertit la chaîne en majuscules, 
la procédure MAJUSCULES effectuant 
ce traitement (MAJUSCULES est une 
version simplifiée de la procédure pré- 
sentée dans LIST 3, page 61). Ensuite, 
une série de tests permet de déterminer 
la valeur du code associé au mnémoni- 
que. Il faut noter que cette série de com- 
paraisons est partagée en deux parties, 
car de nombreux compilateurs n’admet- 
tent pas autant de comparaisons de 
chaînes dans une seule procédure. 


Un fois que le traitement correspon- 
dant aux différents modes de saisie a été 
réalisé, la procédure principale 
LECTURE-ASCII vérifie la validité du 
code. Cela permet de mettre à jour la 
variable logique ERREUR, et, dans le 
cas où tout s’est bien passé, de mettre 
à jour le caractère ASCII afin qu’il soit 
retourné au programme appelant. 


Avec ses quatre modes de saisie, cette 
procédure de lecture d’un symbole 
ASCII est assez souple. Elle peut être 
améliorée, par exemple, en prévoyant 
l’entrée des codes numériques dans une 
base autre que la base décimale. Il faut 
alors songer à faire suivre le nombre de 
l’initiale du nom de la base, soit B pour 
le binaire, O pour l’octal, ou H pour 
l’hexadécimal. 


Thierry CHAMORET 
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ALGORITHMIQUE 


PASSEZ-MOI 
L'EXPRESSION 


UTREFOIS, on les appelait des calculateurs, 
et malgré les apparences, les ordinateurs 

sont restés avant tout des machines à calculer. 
Voici un programme dont le but est d'évaluer les 
expressions. Vous me direz que votre Basic ou 
votre Pascal comprend déjà un programme de ce 
type. Oui, mais comment fonctionne:t-il ? 
Quels en sont les principes ? 


En écrivant ce programme qui cal- 
cule n’importe quelle expression 
composée de parenthèses et des quatre 
opérations, j'avais deux objectifs. Tout 
d’abord, bien évidemment, cet utilitaire 
dispensera son utilisateur d'effectuer, à 
la main ou sur une calculatrice, des cal- 
culs plutôt pénibles. Je pense principa- 
lement à la simplification des résultats. 
Mais ce programme est avant tout 
l’occasion d’exposer ici, sous une forme 
parlante, le fonctionnement du sous- 
programme le plus important de tout 
Basic : l’analyseur de formules. C’est 
cet analyseur qui retourne la valeur de 
toute expression mathématique, aussi 
compliquée soit-elle. 

En ce qui nous concerne, comme 
nous l’avons dit, l’analyseur prendra en 
compte les parenthèses et les quatre opé- 
rations ; il est donc relativement simple, 
et par conséquent facile à décortiquer. 
En raison de cette simplicité, nous nous 
contenterons (modestement) de l’appe- 
ler évaluateur dans la suite de l’article. 


Première approche : examinons dans 
ses grandes lignes le mode de fonction- 
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nement du programme. Au début, l’ex- 
pression entrée au clavier à la ligne 50 
est légèrement modifiée de façon à ce 
que le traitement qu’elle va subir soit 
facilité. C’est ainsi qu’on lui rajoute un 
indicateur de fin, le signe du dièse, avec, 
à la ligne 110, l’affectation A$ = A$ + 
?*#°”. Pour des raisons du même ordre, 
les espaces qu’elle contient ‘éventuelle- 
ment sont éliminés grâce au sous-pro- 
gramme de la ligne 1310 (*). 


La nouvelle expression obtenue, tou- 
jours notée A$, est décomposée par 
caractère grâce à un pointeur H ; le 
caractère sélectionné est placé dans la 
variable C$, comme on le voit aux lignes 
610, 720 et 980 avec la formule C$ = 
MIDS(A$,H,1). 


Quand l’expression a été évaluée, le 
résultat est exprimé sous la forme d’une 


(#) C'est la seule partie du programme compre- 
nant — par souci d'esthétique ! — des instructions 
vraiment particulières à mon Basic. Voilà pour- 
quoi j'ai donné une autre version des lignes 1320 
à 1360 n'utilisant que des instructions très stan- 
dard. 


fraction X/Y, et la variable C$ contient 
toujours le premier caractère d’A$ non 
encore utilisé. La ligne 130 s’explique 
alors aisément : lorsque toute l’expres- 
sion a été évaluée, CS doit contenir l’in- 
dicateur de fin, c’est-à-dire le signe 
« # ». Si ce n’est pas le cas, c’est que 
l’on se trouve en présence d’une erreur 
de syntaxe. Cela se produit par exem- 
ple si l’on entre l’expression : (1+2) 
(3+4). Dans ce cas en effet, le retour 
se fait sur la seconde parenthèse 
ouvrante à cause de l’absence de signe 
entre les deux facteurs. 


Un peu de respect 


pour les priorités 


L’architecture de l’évaluateur, que 
nous allons maintenant décrire, reflète 
fidèlement la notion de priorité des opé- 
rateurs arithmétiques. Cette notion très 
importante est décrite dans pratique- 
ment toutes les notices d’ordinateurs ou 
de calculatrices. Pour les expressions 
autorisées ici, les priorités, classées par 
ordre décroissant, sont les suivantes : 
< ouverture de parenthèses et nombres 
° changement de signe 
. multiplication et division 
« addition et soustraction. 


Cette hiérarchie est en fait très impor- 
tante puisqu'elle permet d’attribuer à 
toute expression une valeur et une seule. 
Soit, par exemple, à calculer 2x5 + 7/8. 
Dans un premier temps, l’évaluateur va 
calculer 2*5 et 7/8 (priorité absolue) et 
ce n’est qu’ensuite qu’il fera la somme 
des deux résultats obtenus. Si l’on attri- 
buait à l’opérateur de l’addition une 
priorité supérieure à celui de la multi- 
plication, l’expression serait calculée 
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Évaluateur de formules 


Programme Basic 


Auteur Bernard Kokanosky 
Copyright LIST et l’auteur 


19 PROC"Init" 

28 REPEAT 

34 PRINT STRING$(C39, "+") 
4a ER=0Q:P=-1:H=1 

50 INPUT'HBExpression:";A$ 
58 PROC ‘Eva lue " 

78 PROC'"Resultat" 

84 UNTIL @ 


JD ‘RAR nn RAR ANR RAR ARR RAR AN ANA R RNA NAN ARR 


128 
118 
120 
130 
148 
158 
168 
128 
182 
1938 
208 
218 
220 
230 
248 
258 
268 
228 
288 
238 
388 
318 
328 
338 
348 
358 
364 
378 
388 
338 
488 
41e 
428 
430 
440 
450 
460 
470 
488 
430 
528 
510 
528 
538 
548 
5958 
568 
570 
588 
598 
68@ 
619 
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DEF PROC'Evalue" 
AS=A$S+"H" 
PROC'Espace" :PROC'"'Niveau + -" 


IF C$<C"R" ER=1 :PROC"Err" :ENDIF 
ENDPROC 


DEF PROC'"Resultat" 
PRINT:PRINT “Valeur:";Xx; 
IF YOÏ PRINT "/"3Y3:ENDIF 
PRINT :X@=X :YD=Y 

ENDPROC 


ee ee Ne De A PP en Pr De ee ee ee De Po er 


DEF PROC'Niveau + -" 
PROC'"'Niveau *% /" 
WHILE .C$="+" OR C$="-" DO 


Jd=1-(C$="-"):PROC'"Sauve" 
H=H+1 :PROC'"Niveau *% /" 
PROC'"Recupere " 
IF J=t PROC"+" ELSE PROC'"-":ENDIF 
WEND 
ENDPROC 
DEF PROC'"Sauve " 


P=P+1:SCPJ=J :PCPJ=X:QCPJ=Y 
ENDPROC 


Re Re Re ee he ee ee ee ee ee ee De Dee De De Pe 


DEF PROC'"Recupere" 
JESCPJ:A=PCPI:B=QCP):P=P-1 
ENDPROC 

DEF PROC'Niveau *% /" 
PROC"Signe" 


WHILE C$="x" OR C$="/" DO 
J=3-(C$="/"7) :PROC"Sauve " 
H=H+1 :PROC'"Signe" 
PROC"Recupere “ 
IF J=3 PROC'"X" ELSE PROC"/":ENDIF 
WEND 
ENDPROC 
DEF PROC'"Signe" 


PROC'"Saute +" 


IF C$="-" DO 
H=H+1 :PROC'"Signe":x=-Xx 

-ELSE PROC"Facteur" 

ENDIF 

ENDPROC 

DEF PROC'"Saute +" 

H=Hh-1 

REPEAT 
H=H+1:C$=MIDS$SCAS,H, 1) 


628 
638 
648 
658 
669 
678 
688 
638 
788 
218 
728 
738 
748 
758 
760 
7270 
288 
730 
898 
81e 
828 
83e 
840 
850 
868 
870 
889 
890 
388 
319 
328 
338 
348 
358 
9368 
378 
38a 
398 
1288 
1219 
1228 
12308 
1248 
1850 
1268 
1278 
1888 
1238 
1128 
1118 
112@ 
1138 
1148 
1158 
1168 
117 
1188 
1198 
1208 
1218 
1220 
1230 
1248 
12508 
1268 
1270 
1280 


UNTIL C$<@"+" 
ENDPROC 
DEF PROC'"Facteur" 
IF C$="(" DO 
H=H+1 :PROC'"'Niveau + -" 


IF C$<>")" ER=2:PROC'"Err'" :ENDIF 
ELSIF C$="$" x=xD:Y=Ya 
ELSE PROC"Nombre 
ENDIF 
H=H+1:C$=MIDSCAS,H, 1) 
ENDPROC 
DEF PROC'"Init" 


CLS 'CLR:MODE 1:Xx2=8:Y2=1 

DIM S(29),PC28),Q(20),ER$(C4) 

FOR J=0 TO 4:READ ERSCJI:NEXT J 
ENDPROC 

DATA Erreur Basic 

DATA Erreur de syntaxe 

DATA Pas de ’)’ en sous expression 
DATA Division par zero 

DATA Pas de nombre 


TRRRRR NRA NRA ARR RAR RAR RAR RNA RAR RAR R RAR RAR ARR 


DEF PROC'"Err" 
BEEP S'PRINT 
PRINT ERS$SCERJ:PRINT:PRINT À$ 
PRINT TABCH-1)"7T" 
PRINT "Appuyez sur Une touche :"; 
INKEY X$:PRINT:RUN 29 
ENDPROC 
DEF PROC'"Nombre" 
HO=H :H=H-1 :K=-1 
REPEAT 
H=H+TIKE=K+T:C$S=MIDSCAS,H,1) 
UNTIL C$<"“p" OR C$>"g9" 
N$=MIDS$SCAS,H2,K) 
IF N$="" ER=4 :PROC"'Err":ENDIF 
RE=UAL CONS) :Y=1 :H=H-1 
ENDPROC 


/ 
AE NN ee ee PP ee Pr A Poe ee ee Pr De D Pr ar ee ee ee 


DEF PROC"+" 
U=AXY+BXX :U=BXY :PROC"Pacd" 
ENDPROC 


7 
NEA RENE D ee Pr ee De ee ee De De Ne Po ee Be Be De ae De de ne 


DEF PROC"-" 
U=AXY-BXX :U=BXY :PROC‘"Pcd" 
ENDPROC 


EEE EEE EEE NE EEE NE EEE EE EEE Sr 


DEF PROC"x" 
U=AXX :U=BXY :PROC"Pacd" 
ENDPROC 


EEE EEE EEE EEE EE EN SE EEE 


DEF PROC"/" 
U=AXY :U=BXxX :PROC"Pacd" 
ENDPROC 


EE EN EEE EE EN SE EE SE CE EEE 


DEF PROC"Pacd" 
IF U=8 ER=3 :PROC'"Err":ENDIF 
J=U:K=U 
REPEAT 
C=U:U=U MODULO U'U=C 
UNTIL U=2 
K=J/C'Y=K/C 
IF Y<8 X=-X:Y=-Y:ENDIF 
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290 ENDPROC 


1319 DEF PROC'Espace" 


1320 J=INSTRCAS," ",1) 

338 WHILE J>8 DO 

1348  AS=INSCAS,J-1,J+1,"") 
358 J=INSTRCAS," ",1) 

368 WEND 


378 ENDPROC 


Les lignes 1320 à 1360 réécrites dans un 
Basic plus standard : 


1328 L=LEN(CAS) 
1338 FOR J=1 TO L 


1348 C$=MID$SCAS$S,J,1) 

1359 IF C$=" " AS=LEFTSCAS, J-1)+RIGHTS 
CA$;L-J):L=L-1:J=J-1 

1360 NEXT J 


Quelques exemples d'exécution 


A AE A ee ee Ne ee ee A Po Ne Pr ee De De PP D Be PP PP ee 


Expression:12/(3-56X1/-7) 


Valeur: 127 11 


ANA ee A PP ee A PP NP Ne A NN Pr ee er Pr ee Dee De 


Expression'(1+1/2)(3/4+9/7) 
Erreur de syntaxe 
C1+1/2)(3/4+9/7)# 


1 
Appuyez sur une touche: 


Ne AE Re ee PP Po ee Pr Po De Re Pa Be De De De Pr ee ee A ee Poe De Pr Re De 


tout autrement, comme 2*(5+7)/8, 
résultat 3 au lieu de 10.875. 


En résumé, on voit que, lors du cal- 
cul d’une expression, les nombres et les 
sous-expressions (ce qui se trouve entre 
parenthèses) sont évalués en premier ; 
les changements de signe sont pris en 
compte avant les produits et les quo- 
tients, et ce n’est qu’en dernier que sont 
calculés les sommes et les différences. 


A noter que * et / ont une même prio- 
rité, ce qui signifie qu’ils seront traités 
selon l’ordre dans lequel ils apparaissent 
dans l’expression à évaluer. 


La construction de tout évaluateur se 
fait en partant du niveau de priorité le 
plus élevé et en allant vers les niveaux 
les plus faibles. Dans le cas qui nous 
occupe, le traitement du niveau le plus 
élevé sera effectué par la procédure 
« Facteur » qui traite le cas des nombres 
(ligne 700) et celui des sous-expressions 
(ligne 670). On a incorporé au pro- 
gramme un dispositif qui en facilite 
l’utilisation : écrire $ revient à repren- 
dre le dernier résultat (voir ligne 690). 
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BBD ‘nan RAR RAR ANA NAN AR RRR RAA RAR AN ARR N 


On remarquera par ailleurs que pour 
calculer une sous-expression, il suffit de 
sauter la parenthèse ouvrante (H = H 
+ 1 à la ligne 670) et de calculer ce qui 
vient ensuite grâce à l’évaluateur (pro- 
cédure « Niveau + — »). Autrement dit, 
notre évaluateur est récursif : il s’ap- 
pelle lui-même. Le retour se fait alors 
avec une parenthèse fermante dans CS 
(d’où la ligne 680). 


Plus ou moins 


ou ni plus ni moins 


En descendant l’échelle des niveaux, 
nous rencontrons le problème du signe 
du facteur. Si ce signe est positif, on l’en- 
jambe tout simplement (ligne 510). Si ce 
n’est ni le signe plus ni le signe moins, 
on exécute la procédure « Facteur » 
(ligne 540). Enfin, dans le cas du signe 
moins, il suffira de le sauter, de réutili- 
ser la procédure « Signe » car on peut 
avoir écrit ensuite un signe + ou —, et 


& 


premier facteur 


facteur suivant 


Traitement des produits 
et des quotients 


Calcul du 


Retour au 
programme 
principal 


Calcul du 


Effectue 
l'opération 


de changer enfin le signe du résultat 
(ligne 530). On remarque, encore, l’uti- 
lisation de sous-programmes récursifs. 


Arrivé à ce stade, nous devons faire 
calculer les produits et les quotients. 
Comme les opérations arithmétiques 
correspondantes ont toujours deux 
arguments, l’organigramme est très sim- 
ple à mettre au point (figure ci-dessus). 

Le calcul des divers facteurs doit se 
faire en traitant tout ce qui possède un 
niveau de priorité supérieur ou égal à 
ceux de la multiplication et de la divi- 
sion. Ce calcul passe par la procédure 
« Signe ». La programmation de « Ni- 
veau * / » est alors relativement simple. 
On remarque dans ce sous-programme 
le calcul de J qui vaudra 3 si l’opération 
est une multiplication, et 4 s’il s’agit 
d’une division. En effet, dans le Basic 
utilisé, la variable booléenne (C$ = 
”/7) vaut — 1 (vrai) ou 0 (faux) selon 
que le contenu de C$ est ou non le 
caractère de la division (’/”). 


Quiconque s’est déjà plongé dans la 
notice d’un ordinateur de poche ou 
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d’une calculatrice (surtout d’une 
Hewlett-Packard) sait qu’un évaluateur 
ne peut fonctionner qu’avec deux piles, 
l’une pour les nombres déjà calculés, 
lPautre pour les opérateurs rencontrés. 
Nous allons voir le pourquoi de leur uti- 
lisation après avoir donné les précisions 
suivantes : 

e la pile des opérateurs est ici le tableau 
S(.) ; 

e la pile des résultats partiels a été 
dédoublée, numérateur dans P(.) et 
dénominateur dans Q(.) ; 

e le sommet des piles, c’est-à-dire le der- 
nier niveau utilisé, est indiqué dans la 
variable P, 


Dans l’organigramme précédent, 
nous avons remarqué que l’évaluateur 
devait effectuer le produit ou le quotient 
de deux termes, le premier représenté 
par la fraction X/Y (au point a), le 
second représenté par X/Y (au point b), 
le code de l’opération étant stocké dans 
la variable J (au point a). Il est alors évi- 
dent que le calcul du second opérateur 
va éventuellement détruire J ainsi que 
le premier résultat, même si l’on prend 
la précaution de le stocker dans A/B et 
non pas dans X/Y. Nous allons voir 
pourquoi en prenant un exemple. 


Soit à calculer 2x(3/4). Notre évalua- 
teur va calculer le premier facteur 2, 
d’où un résultat A/B avec A = 2 et 
B = 1 , le code opératoire étant celui 
de la multiplication, autrement dit 
J = 3. 


Comment préserver 


les anciennes valeurs ? 


Pour le calcul du second facteur, les 
lignes 660 et 670 vont nous renvoyer à 
« Niveau + — » qui nous fera de nou- 
veau passer dans « Niveau * / ». Le 
premier terme sera calculé, ici 3 d’où 
A/B avec À = 3et B = 1, le code opé- 
ratoire étant celui de la division : J = 4. 
Les anciennes valeurs, pourtant indis- 
pensables, de À, B, J sont irrémédiable- 
ment perdues et Le résultat obtenu sera 
complètement faux. 


C’est donc l’utilisation récursive de 
Pévaluateur qui va nous imposer la sau- 
vegarde du premier résultat et du code 
opératoire en pile (Procédure « Sau- 
ve ») et leur récupération (Procédure 
« Récupère ») avant d’effectuer l’opé- 
ration. (La pile S est celle des opéra- 
teurs, la pile P celle des numérateurs et 
la pile Q celle des dénominateurs.) 


Lors du calcul de 2*(3/4), les choses 
se passeront donc de la façon suivante. 
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Vous &res LE 
SECOND FACIEUR? 
ABON ALORS 
HETTEZ -vous 
ENTRE LES 
PAREN THEÈSES 
LÀ BAS {1 


— Calcul du premier facteur et sau- 
vegarde en pile : 
avant le calcul de 3/4 


Dilé Sississanes 3 
pile P.......... 2 
pilé:Q:::..:... 1 

P =.0 


— Calcul du premier facteur de la 
parenthèse et sauvegarde : 
avant le calcul de 4 


pile S.....…. 34 
pile P::.:2.: 23 
pile Q.....… 11 

P°= 1 


— Le calcul de 4 est alors effectué : 
X = 4et Y = 1, et retour ligne 450. Il 
y à récupération de ce qui se trouve au 
sommet de la pile : À = 3,B = 1et 
J = 4. D’où un nouvel état des piles : 


pile Saisies 3 
DIE Ps 2 
pile Q.......… 1 

P =0 


L'opération est effectuée, d’où X = 3 
et Y = 4 et retour par 480 à la ligne 450, 
suivant celle qui avait lancé le calcul du 
second facteur (3/4). 


Au retour en 450, la pile est vidée et 
l’on retrouve À = 2,B = 1, J = 3, avec 
X = 3et Y = 4. Le produit est effec- 
tué pour donner le résultat X = 3 et 
Y = 2. Cette fois, tout fonctionne cor- 
rectement. 


Il ne reste plus qu’à traiter le cas des 
opérations de moindre priorité + et —. 
Il n’y a pas grande différence avec ce qui 
se passe pour la multiplication et la divi- 
sion, aussi laisserai-je le soin au lecteur 


1 


d'étudier le sous-programme « niveau 
+ — » qui constitue bien le point d’en- 
trée de notre évaluateur. 


Quelques précisions avant de termi- 
ner. Il faut savoir que le programme 
peut accepter jusqu’à 20 imbrications de 
parenthèses (dimensionnement de la 
ligne 770), mais qu’il est tout à fait pos- 
sible d'augmenter cette limite. Cepen- 
dant, le lecteur utilisant un Basic clas- 
sique qui remplacerait PROC par 
GOSUB et ENDPROC par RETURN 
devrait veiller au nombre maximum 
d’imbrications de GOSUB-RETURN 
dans son Basic. L'utilisation récursive 
de notre évaluateur peut poser quelques 
problèmes s’il y a trop de sous-expres- 
sions emboîtées. Si ON ERROR GOTO 
existe dans ce Basic, il sera possible 
d'écrire un ON ERROR GOTO 880 
dans le sous-programme « Init », et la 
saturation de la pile des adresses de 
retour des sous-programmes sera signa- 
lée par l'erreur 0 : « Erreur Basic ». 


Après ces quelques explications, j’es- 
père que beaucoup commenceront à 
avoir une idée plus précise du fonction- 
nement interne des Basic (comme des 
calculatrices en notation algébrique) et 
pourront, pourquoi pas, envisager la 
construction d’analyseurs de formules 
plus perfectionnés que celui de leur 
Basic, travaillant par exemple avec des 
formules hyperboliques, ou manipulant 
des nombres de plusieurs centaines de 
chiffres. 


Bernard KOKANOSKY 
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ACCÉLÈRE 


MATHÉMATIQUES 


EULER 


LA CONVERGENCE 


ERTAINES suites ne s’approchent de leur limite 
qu'après un temps très long. Pour accélérer 
la convergence, la méthode d’Euler est d’une 
incontestable efficacité. Elle l’est particulièrement 
lorsque la convergence à lieu par oscillation 


autour de la limite. 


L’une des applications mathéma- 

tiques les plus évidentes de l’ordi- 
nateur consiste à obtenir une valeur 
approchée de la limite 1 d’une suite con- 
vergente u, en calculant simplement 
suffisamment de termes consécutifs 
jusqu’à obtenir une stabilisation des 
résultats. 


Un coup au-dessus, 


un coup en dessous 


Malheureusement il arrive que la suite 
étudiée soit assez capricieuse et n’« at- 
teigne » sa limite (à la précision de la 
machine près) qu’au bout de temps pro- 
hibitifs. La méthode suivante, due à 
Leonhard Euler, permet assez souvent 
de ramener u, à de meilleurs senti- 
ments par une transformation assez sim- 
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ple, qui n’en altère évidemment pas la 
limite. Elle est particulièrement efficace 
lorsque u, oscille sans cesse autour de 
1 : un coup au-dessus, un coup en des- 
sous et ainsi de suite. Sous des condi- 
tions assez larges, on montre alors que 
la transformée e, de u, va se précipiter 
vers | sans se permettre aucune circon- 
volution intempestive. La transforma- 
tion d’Euler est simple à programmer. 
Nous allons en exposer le principe en 
l’appliquant à un cas exemplaire, celui 
du calcul de l’intégrale : 


| = "® sin x dx 
X 


— 00 
dont la valeur est — bien entendu — le 
nombre +. Si les résultats fournis par 
une calculatrice munie d’une touche 
« Integrate », HP-15C par exemple, ne 
sont pas très bons, cela tient à l’intégrale 
elle-même, qui a un bien vilain compor- 

tement. 
Pour la calculer, une idée fort natu- 
relle consiste à utiliser l’une des métho- 


des classiques d’intégration qui passe 
par les intégrales partielles : 


PT sin x 
U, = dx 
nr À 


et à étudier la limite de u,, qui est évi- 
demment 1. Seulement la suite u, pos- 
sède justement le caractère oscillant 
annoncé : pour n= 30, nous verrons par 
exemple que u, saute encore de 3,12 à 
3,16 ! Pour obtenir quatre décimales 
exactes, il y faudrait un sacré bout de 
temps. 

Heureusement voici Euler qui va tout 
régulariser, tout lisser et donnera la 
bonne valeur en un temps très raison- 
nable. L’idée fondamentale est la sui- 
vante : à partir de la suite (Uo, u1, up, 
etc.), on définit une première suite (vo, 
Vi, Va, etc.) par un certain procédé (P), 
puis on réitère (théoriquement) ce pro- 
cédé une infinité de fois, d’où l’on 
déduit la suite d’Euler e, qui conver- 
gera vers I bien plus vite que u,.. 

L’algorithme de (P) est simple ; on 
considère d’abord les différences succes- 
sives d, entre les termes de u, : do= Uo, 
di = ui — Uo, d> = u:-—u;, etc. Ces diffé- 
rences mesurent les écarts entre les dif- 
férentes approximations de I que cons- 
tituent les u,. Dans le cas présent, ces 
écarts sont alternativement positifs et 
négatifs, grossièrement égaux en valeur 
absolue. Il est donc naturel d’essayer de 
les neutraliser en les sommant deux par 
deux, pour donner des nombres assez 
petits en valeur absolue. A savoir : 
Qo = (do + d:)/2, di = (d: + d2)/2, 
= (d; © à d:)/2, etc. 
puis on définit la suite v,, transformée 
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MATHÉMATIQUES 


EULER ACCÉLÈRE LA CONVERGENCE 


Pour osciller, ça oscille 


de u, par (P), comme celle dont les q, 
sont justement les écarts : 
Vo= do, Vi=Vo+dQi, Vi= Vi +, etc. 

On imagine bien volontiers que cette 
nouvelle suite v, soit plus régulière que 
u,. Admet-elle une limite ? Cette limite 
est-elle liée à 1 ? 

Un calcul très simple fournit l’éga- 
lité : 

Va = Un + (d,, = uo)/2. 

Il est alors clair que v, admet une 
limite, à savoir m=l-us/2. Si l’on 
recommence la transformation (P) sur 
Vr, elle donnera une nouvelle suite w, 


qui admettra comme limite 


n=m—Vo/2=1-{(u0+v)/2, etc. 


On imagine la démarche générale : au 
bout d’un certain nombre d’applica- 
tions du procédé (P), on obtiendra des 
suites formées de termes suffisamment 
petits pour être négligeables (pour la 
machine) — évidemment ceci est suscep- 
tible d’une démonstration mathémati- 
que rigoureuse, mais un peu délicate —, 
ce qui donne l’égalité approchée : 
1= (uo + Vo+ Wo+ .…)/2. 


La suite d’Euler est donc simplement 
la suite définie par e=uv/2, 


Ê = (Uo + Vo)/2, © = (ü + Vo+ Wo)/2, etc. 
Elle converge toujours vers la même 
limite que la suite u, initiale, sans que 
l’on soit toujours assuré qu’il y ait réel- 
lement accélération de la convergence. 
Cela dépend des cas. Mais il en est très 
souvent ainsi lorsque u, oscille avec 
régularité. Signalons encore que la suite 
d’Euler peut parfaitement converger 
même lorsque u, diverge (voir ce qui se 
pas$e pour Um=l, Um:1=0: alors 
di=(— 1)", qu =0, v,=0, w.=0, etc. et 
la suite e, converge vers 1/2 ; une belle 
légende voudrait que l’ingénieur Eiffel 
ait utilisé une approximation de ce genre 
pendant la construction de sa Tour ; se 
non ê vero.…..). 


Un grand avantage de cette méthode 
est que l’on n'utilise ce dont on a besoin 


Pour les curieux... 
et les matheux 


IL existe une formule donnant explici- 
tement e, en fonction des u,. Elle utilise 
des coefficients binômiaux et peut servir 
pour la démonstration de la convergence 
des e; vers Î. La voici : 


n+} 


n 
nn 2 ir Cri üx 
0 


qu’au moment où l’on en a besoin. Il 
serait impossible (et stupide !) de ren- 
trer en machine tous les u, alors que, 
pour calculer par exemple e», on ne se 
servira que de uo, ui,..., uw. Le but 
recherché est d’afficher successivement 
côte à côte les u, et les e, à l’écran 
jusqu’à stabilisation des e,. Dans la 
pratique, on n’a jamais besoin d’aller 


—- 


REGARDE , J'Ai ACHETÉ UN 
ORDINATEUR ; VEUX - TD 
L'ESSAYER À 
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HA NON, SÜREMENT 
pas !1) 


MAIS ENFIN ; TÜ DEURAS SAVOIR 
QUE CES TRES-LÀ SONT 
PLEINS DE 


ŒAP35 
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CLS: DEFINT G;l,J,K3N 
N=5@9: PI1=3.14195927: A=D: H=PI/N 


DIM EN): S=@: E=0@ 
FOR I=0 TO N 
GOSUB 149: EI 


}=U 


PRINT I+15: S=S+U: PRINT TAB(30G) 5; 
IF 1=8 GOTO 110 


FOR J=I-1 TO @ 


STEP =1 


E(J)=(E(J)+E(J+1))/2 

NEXT J 

E=E+E(@)/2: PRINT TAB(5@) E 
NEXT I 

PRINT: END 
B=A+PI 


X=A: GOSUR 250 

U=Y: G=2 

FOR K=1 TO N 
G=6-G: X=X+H 
GOSUR 250 
U=U+GXY 

NEXT K 

U=H#(U-Y)/3 

A=B 

RETURN 

IF X<1E-2 THEN Y=1 

Y=Y+Y 

RETURN 


Calcul de l'intégrale de sin(x)/x 
par la méthode d'accélération d'Euler 


au-delà de 15 ou 20 ; l'exemple présenté 
ici va cependant jusqu’à us et es. 


Une boucle 


après l’autre 


Les nombres uo, Vo, Wo,... OCCupe- 
ront successivement la mémoire nom- 
mée E(0), et les e, seront stockés en E. 
Les différences successives d,, données 
par les formules : 


NT sin x 
d,=u;-u:-,= ee dx 


DA 2 > 
-( Z SX x (do= 0) 
0 X 


seront entrées, chacune en son temps, 
dans les mémoires respectives E(i). 
Après l’introduction de d, en E(n-—1), 
on remplacera le nombre d,_; en 
mémoire E(n—2) par le nombre 
n-1 = (dy: +d,)/2 et ainsi de suite. Au 
bout de cette boucle, le contenu de E(0) 
sera égal à 2(e, —-e,_:). Après affichage 
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—X#X/6 ELSE Y=SIN(X)/X 


de €, une autre boucle commencera 
par l’appel du successeur u,,1, etc. 


Le calcul des u, se fait par une rou- 
tine élémentaire (ici la méthode de 
Simpson en S00 pas ; bien d’autres 
auraient pu faire l’affaire). Elle est 
située dans le sous-programme des 
lignes 140 à 240. L’algorithme d’Euler 
lui-même figure entre les lignes 30 et 
130. Il peut évidemment être appliqué 
à bien d’autres choses qu’au calcul d’in- 
tégrales vicieuses. Sans doute n’est-il pas 
toujours aussi efficace que dans cet 
exemple. Mais reconnaissons que la sor- 
tie des résultats (voir ci-contre) est 
impressionnante : la valeur exacte 
3.14159 est donnée dès le dix-septième 
pas, alors que u, oscille encore entre 
3.10 et 3.18 ; e, reste stable jusqu’au 
bout (une variation de 10-* entre les 
pas 19 et 42 est due, semble-t-il, à des 
problèmes d’arrondi), alors que us, et 
us ne permettent même pas d’être sûr 
de la seconde décimale ! 


André WARUSFEL 


Liste des cinquante-deux premières 
valeurs des suites u, et e, 


1 3.70387 1.851194 
2 2.83632  2.56102 
3 3.34954  2.87126 
4 2.98432  3.01349 
Es] 3.26795  3,08024 
6 3.03607  3.11199 
7 3.23218 3.12724 
8 3.06227 3.13461 
3 3.21217 3.13818 
10 3.07806  3.13993 
11 3.199338  3,14078 
12 3.08862  3.1412 
13 3.19052  3.1414 
14 3.09617 3.1415 
15 3.184017 3.14155 
16 3.10184 3.14158 
17 3.179303  3,14159 
18 3.10625 3.14159 
19 317509  3.1416 
20 3.10978 3.1416 
21 3.17188 3.1416 
22 3.11268  3.1416 
23 3.169235  3.1416 
24 3.11509  3,1416 
25 3.16704  3.1416 
26 3.11713  3.1416 
27 3,16515  3.1416 
28 311888 3,1416 
29 3.16353  3.1416 
30 3.12039  3,1416 
31 3.16211 3.1416 
32 3.127171 3.1416 
33 316087  3,1416 
34 3.12288  3.1416 
35 3.153977  3.1416 
36 3.12392  23.1416 
37 3.193879  3.1416 
38 3.12485 3.1416 
39 3.135791  3,1416 
40 3.125699  3.1416 
41 3,13711  3.1416 
42 3.126435  3,1416 
43 3.156339  3.14159 
44 3.12713 3.141959 
45 3.155373  3.14159 
46 3.12776 3.14159 
47 3.195513  3.14159 
48 3.128934 3.14159 
49 3.153458  3.14159 
50 3.12887 3.14159 
51 3.15407  3.14159 


3:12936 3.141959 
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= AMSTRAD COULEUR 


_ GRAPHISMES 


Tableau 1 
Correspondance entre les numéros 
«de PEN et les couleurs 


E manuel de l'utilisateur de l'Amstrad ne dit 
pas tout sur les possibilités graphiques de la 
machine. Il est particulièrement succinct sur le 


e . « Numéro Coui 
mode d'encre graphique, mode pourtant simple à de PEN | Couleur 
C4 # . C4 
mettre en œuvre et qui permet des réalisations 0) 0000 | Bleu foncé 
aune vi 
très colorées. 2 0010 Turquoise vif 
3 0011 Rouge vif 
4 0100 Blanc 
A chacun des trois modes d’écran inclus. Le mode normal est actionné par > rs aa if 
de l’ Amstrad correspond un nom- 0, la valeur 1 place l’Amstrad en mode 7 O111 deal vif 
bre de colonnes de texte et des qualités XOR, 2 en mode AND, 3 en mode OR. 8 1000 Tunis 
de résolution du graphisme : | Ce que le manuel ne dit pas, c’est que 9 1001 Jaune foncé 
e le mode multicolore est en basse réso- ce paramètre doit également être mani- 10 1010 Bleu pastel 
lution, avec 20 colonnes de texte et 16 pulé comme un caractère ASCII. Ainsi, 11 1011 Rose 
couleurs ; pour activer le mode d’encre graphique | 12 1100 Vert vif 
ele mode normal est en résolution XOR en Basic, il faut écrire : PRINT | 13 1101 Vert pastel 
moyenne, avec 40 colonnes de texte et  CHRS$(23);CHRS$(1). 14 1110 Bleu/jaune 
4 couleurs ; Le mode d’encre normal (20 colon- : a CE Pi Es 


e le mode haute résolution dispose de 
80 colonnes de texte et de 2 couleurs 
seulement. 


Un autre mode, indépendant dans 
son principe de ces modes d’écran, pro- 
pose des effets variés : le mode d’encre. 
Il n’est mentionné dans le guide de l’uti- 


lisateur qu’au chapitre 9, dans le para- Valeur du Valeur du 
graphe sur les « caractères de contrôle ». premier bit second bit AND OR XOR 
On y apprend, en fait, que le caractère 
dont le code ASCII est 23 permet de 0 0 0 0 0 
modifier le « Mode d’Encre Graphi- : û 1 l 
que », pour autant qu’il soit suivi d’un l 1 

À : a l Il 1 1 0 
paramètre pouvant varier de O0 à 3 . 
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Tableau 2 


Résultats des opérateurs AND, OR, XOR 
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Programme 1 
Les modes d'encre de l'Amstrad 


1 MODE © 

100 REM %XXKkk*%* MODES D'ENCRAGE CPC XXkxkx 
110 PRINT"O-— NORMAL" 

120 PRINT'"i- XOR" 

130 FRINT"2- AND" 

140 FRINT"'S- OR" 

150 LOCATE 1,6: INPUT"'MODE ";C# 


160 
170 
180 
190 
260 
210 
220 
250 
240 
250 
Z60 
270 
Z280 
290 
300 
510 
320 


CEVAL{CH):1IF C<O OR C5 
LOCATE 1,8: INPUT"'FEN "3F 
CLS: PRINT CHR$ (25) ; CHR$# (0) 


THEN 150 


REM **%* HORIZONTAL *#%kx 
XO=150:YO=150:X1=490 

FOR Y=YO TO YO+100 STEF 2 
MOVE XO,Y:DRAW X1,Y,1 
NEXT 

REM *xk*k VERTICAL *X#x 
PRINT CHR$ (23) ; CHR$ (C) 
XO=265: YO=70: X1=385 

FOR Y=YO TO YO+250 STEP 2 
MOVE XO,Y:DRAW X1,VY,F 
NEXT 

CALL &EB18:RUN 

END 


Explications du programme 1 


Dans le cas du mode AND), le 
fond de l’écran a la couleur 0000 
(PAPER 0). Une barre horizon- 
tale jaune qui correspond au 
PEN numéro 0001 traverse 
l’écran. Le choix du PEN numéro 
1000 (turquoise) pour la barre 
verticale a pour résultat une barre 
verticale de couleur bleue partout 
(PEN 0000). En effet, sur la zone 
de fond, on a 0000 AND 1000, 
soit 0000 ; au croisement des 
deux barres colorées, on a 0001 
AND 1000, soit 0000, là encore. 

Dans le cas du mode XOR, le 
fond d'écran est en PEN 0000, la 
barre horizontale toujours en 
PEN 0001. Le choix du PEN 
numéro 1001 (jaune foncé) a 
pour effet de colorer la zone de 
fond en jaune, soit un PEN 
numéro 0001, car 0000 XOR 


nes texte), établi par CHRS$(0), laisse le 
choix entre 16 couleurs simultanées, 16 
PEN. Chacun d’eux est reconnu par un 
numéro, de 0 à 15 en décimal, soit de 
0000 à 1111 sur quatre chiffres binaires 
(bits). Le tableau 1 donne les correspon- 
dances entre les numéros de PEN et les 
couleurs à la mise en marche de l’ordi- 
nateur. 


Les autres modes interviennent sur les 
couleurs par le changement de valeur 
des bits de PEN : les bits sont compa- 
rés deux à deux pour donner une nou- 
velle valeur de PEN. La table 2 expose 
les résultats des opérations AND, XOR 
et OR appliquées aux valeurs binaires 
que prendront les bits. 


Le programme 1 met en évidence les 
résultats de l'emploi du mode d’encre 
(voir les explications du programme 1). 
Quant au programme 2, il est un exem- 
ple d’effet graphique remarquable : la 
simulation du déplacement d’un élé- 
ment graphique sur un autre sans alté- 
ration du dessin. Il reste à chacun la 
possibilité de faire ses propres expé- 
riences. 


Jean-Pierre LALEVÉE 


0001 a pour résultat 0001. En 
revanche, c’est la couleur corres- 
pondant à 0001 XOR 1001, soit 
le turquoise (1000) qui apparaît 
au croisement des barres. 

Pour ce qui est du mode nor- 
mal, il est le seul à ne pas faire 
intervenir de changement de cou- 
leur : la barre verticale recouvre 
normalement la barre horizontale 
en conservant partout la couleur 
choisie. Ce mode est donc équi- 
valent à un 1111 AND numéro de 
PEN. 

Enfin, la ligne 1 du programme 
peut être modifiée pour essayer 
d’autres modes d’écran. 


Programme 2 
Démonstration graphique 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


CLS 

MOVE x,0:DRAW x,399,3 
NEXT 

FOR j=1 TO 2 
NEXT:NEXT 
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FOR i=100 TO 500 STEP 2 


REM *k* demo graphique *x*x* 


PRINT CHR$ (23) CHR$& (1):REM mode XOR 
FOR x=120 TO 480 STEF 16 


MOVE i,200:DRAWR 12,0,2:MOVER -6,6:DRAWR 0,-12 
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PRÉHISTOIRE DE LA PROGRAMMATION 


N jour de juin 1833, l’inv. nteur des Machines 


à différences, Charles Babbage, 
fille du poète Byron, Ada de Lorelace, 
Les relations — pas toujours 


rencontra la 


paisibles - “ 


qui suivirent cette rencontre rendirent 
un grand service à la scienceet 
particulièrement à la programmation. 


Vers 1833, l’astronome Charles 

Babbage, né le lendemain de Noël 
1791, avait déjà fort bien utilisé la pre- 
mière moitié de ses quatre-vingts années 
de vie — somme toute assez malheu- 
reuse et pleine d’intrigues (1). Il avait 
déjà tenté de mettre au point le premier 
des deux projets grâce auxquels il mérite 
d’être considéré comme l’un des pères 


(1) La première moitié de la vie de Charles Bab- 
bage est racontée dans LIST 11, pages 19 à 22. 
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des ordinateurs modernes : les Diffe- 
rence Engines (machines à différences). 


Elles avaient été conçues afin de dres- 
ser et d’imprimer automatiquement des 
tables de fonctions mathématiques (tri- 
gonométriques, exponentielles,.…), mais 
non de pouvoir traiter des opérations 
arithmétiques à la demande comme avec 
une calculatrice de Pascal. Au cours des 
longs conflits qui opposèrent cet homme 
atrabilaire à ses employés et à son gou- 
vernement (à qui il voulait faire suppor- 
ter les frais inouïs de construction du 


à RENCONTRE 
[ARLES ET ADA 


premier modèle), Babbage conçut subi- 
tement vers 1833 sa machine analytique, 
d’une tout autre importance pour 
nous. Les premiers plans de ce qui res- 
tera comme son chef-d'œuvre datent, 
semble-t-il, de septembre 1834. 


ha 


“Déjà les car es 


pero 


Lorsqu'ils prennent connaissance 
pour la première fois de la nature de la 
machine analytique, même les profanes 
sont surpris par l’idée simple et géniale. 
Pour réaliser ses projets, Babbage fut 
en effet amené à utiliser une technique 
très spectaculaire à base de cartes per- 
forées. Cette technique fut essentielle- 
ment mise au point pour les métiers à 
tisser, entre 1801 et 1805, par Jacquard 
et Breton (d’après des idées anciennes 
de Vaucanson, vers 1750, elles-mêmes 
issues des recherches de deux soyeux 
lyonnais, Basile Bouchon en 1725 et Fal- 
con trois années plus tard). Cet artifice 
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ET ee |, 


fondamental joua le rôle moteur dans 
sa définition des plans d’un prototype 
de calculateur « universel », c’est-à-dire 
capable en principe d’exécuter automa- 
tiquement n’importe quel algorithme. 


Pour prendre une image brutale peut- 
être et un peu trop approximative, on 
peut dire qu’il y a, entre les Difference 
Engines et l’Analytical, tout ce qui 
sépare un tapis roulant d’une voiture. 
Les deux mènent sans effort d’un point 
à un autre, mais l’un est restreint par 
nature à certains déplacements précis, 
alors que l’autre ne connaît guère de 
limites si on sait la diriger. Comment ne 
pas comprendre qu’il s’agit de deux 
niveaux complètement séparés du con- 
cept d’automatisation ? 


Même si l’Analytical Engine ne fut 
construite, comme on l’a déjà vu pour 
les précédentes, que d’une façon extrê- 
mement partielle (l’unité centrale de cal- 
cul fut complétée après la mort de Bab- 
bage, en 1880, par son fils Henry), 
même si elle ne servit que deux fois, le 
21 janvier 1888 pour calculer et impri- 
mer 44 multiples de pi, puis après quel- 
ques modifications en 1910 pour des 
tables astronomiques, même si son uti- 
lisation fut rendue presque impossible 
par des difficultés d’ordre technologi- 
que insurmontables pour l’époque, on 
peut considérer que le principe de la 
machine analytique était tout à fait via- 
ble. En un sens, le Mark I, la calcula- 
trice « Harvard-IBM » qui fit sensation 


L 
L 


en 1944, n’en fut simplement qu’une 
version plus performante, sans doute 
parce qu’elle utilisait la puissance élec- 
trique (Babbage n’avait pensé qu’à la 
vapeur). 


Déjà, l’ Analytical Engine avait tout 
ce qui fait l’essentiel d’un calculateur 
universel : des périphériques d’entrée et 
de sortie dont une imprimante, une 
unité centrale de calcul {mill, le moulin), 
une unité de commande (control unit}, 
et surtout une mémoire gigantesque 
(store, littéralement le magasin) de mille 
compteurs décimaux à cinquante chif- 
fres. Elle devait additionner et sous- 
traire en une seconde, multiplier et divi- 
ser en une minute. Nous ne pouvons 
décrire ici en détail les composants du 
calculateur faute de place. Mais au sim- 
ple énoncé de ces termes évocateurs, on 
voit que cette machine était puissante et 
avait déjà été conçue selon la structure 
fondamentale que l’on retrouve sans 
exception dans un ordinateur d’au- 
jourd’hui. Entre autres aptitudes remar- 
quables, elle était capable d’effectuer 
des boucles (en Basic, on dirait : FOR 
I=1 TO N.. NEXT D. 


Son concepteur en était tout à fait 


conscient : nous en avons la preuve dans. 
les textes qu’il lui consacra, et surtout 
dans le plus précieux de tous les docu- 
ments inspirés par sa machine : la tra- 
duction, augmentée de notes capitales, 
par Ada de Lovelace, qui parut dans les 
« Taylor’s Scientific Memoirs » de 
1843, à partir d’un long article de Luigi 
Federico Menabrea dans la livraison 
d’octobre 1842 de la Bibliothèque uni- 
verselle de Genève. (Des indications bio- 
graphiques sur les auteurs des articles de. 
1842 et 1843 sont données en encadré, 
page 45.) Les notes, tout particulière- 
ment, sont considérées aujourd’hui 
comme la première publication dédiée 
à l’idée alors toute neuve (et pour long- 
temps !) de programmation automatique. 


C'est en effet une contribution sans 
prix qu’apporte à Babbage la célèbre 
comtesse Augusta Ada de Lovelace 
(1815-1852), née Byron, qui consacra les 
dix dernières années de sa vie à mettre 
au clair des exemples de suites des mou- 
vements de cartes destinés à obtenir tel 
ou tel calcul. Elle inventa à ce propos 
(ou se contenta-t-elle d’expliciter d’après 
des suggestions de Babbage lui-même ? 
on l’ignore) la notion aujourd’hui fort 
banale de sous-programme qui, comme 
les itérations, permet d’utiliser autant de. 
fois que nécessaire un même jeu d’ins- 
tructions sans avoir à en prévoir plu- 
sieurs « copies » dans l’écriture de l’al- 
gorithme général. 


Bien entendu, le seul fragment maté- 


apr! CHARLES ! 


—— 


si oN FRISRIT DES 
PETITS ORDINATEURS ? 
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SPNGA. 
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Les nombres de Jacques Bernoulli 


! y a environ 300 ans que le savant suisse Jakob (ou Jacques) Bernoulli (1654-1705), 
premier d’une nombreuse famille de mathématiciens, à l’origine de la Combinatoire 
et de nombreux résultats d’analyse et de géométrie, découvrit une suite remarquable 
de nombres qui portent son nom. Ils apparurent publiquement pour la première fois 
dans la deuxième partie de l'édition posthume de son grand livre sur l’art de conjectu- 
rer (Ars Conjectandi, 1713). Son compatriote Leonhard Euler en établit de nombreu- 
ses propriétés vers 1740. La Comtesse Ada de Lovelace, dans un mémoire de 1843 
sur la Machine de Babbage, les utilisa comme cobayes pour prouver que l’Analytical 
Engine était capable de résoudre des problèmes complexes de calcul. (Babbage a peut- 
être été lui-même à l’origine de ce choix.) 

Dans l’annexe G qui constitue l’une de ses contributions à cet article, elle commence 
par rappeler la définition usuelle des nombres de Bernoulli : la fonction définie par 
f(0) = 1 et, pour x non nul, par f(x) = x/(e*— 1}, possède ce que l’on appelle techni- 
quement un développement en série entière autour de 0 — outil essentiel, par exem- 
ple, des recherches de Newton — aux curieuses propriétés. Si l’on note ce développe- 
ment sous la forme usuelle (valide pour x inférieur en valeur absolue à 27) : 


f(x) = SE btnxt/n !, 


on constate que les nombres b(n), naturellement égaux aux dérivées successives de f 
en 0, sont nuls-pour n impair supérieur ou égal à 3, et satisfont à une étrange relation 
où interviennent les fameux coefficients du binôme, C(n, p}) (étudiés notamment par 
Pascal, également l’un des pères de l’informatique). Sachant que b(0) = 1, pour tout 
entier m au moins égal à 1, on a l’égalité : 


p=m 
. 2, C(m + 1,p) b(p) = 0. 


On donne ci-dessous une table des premières valeurs des nombres de Bernoulli, b(p), 
que vous pouvez obtenir très facilement par un programme Basic. 


Table des premières valeurs des nombres de Bernoulli 


La comtesse Ada prend d’abord soin de démontrer la relation en question, ou plus 
exactement une variante destinée à ne calculer que les b d’indice pair, les seuls qui 
ne soient pas nuls (en dehors du premier qui fait exception). Elle utilise, en fait, la 
notation B(2n — 1) pour représenter le nombre que nous écrivons aujourd’hui b(2n) 
ou B(n), mais il n’y a jamais eu d’accord complet entre les mathématiciens sur ce point. 
Ces nombres B(1) = 1/6, B(3) = —1/30, B(5) = 1/42, etc. sont liés par une égalité 
remarquable qu’elle note sous la forme : 0 = A(0) + A(1)B(1) + A(3)BG) + … + 
A(2n — 1)B(2n — 1) où les coefficients A(2p — 1) ne dépendent que de n et de p. Ils se 
prêtent facilement à un calcul récurrent. 

Quelques-unes de leurs valeurs et des relations qui en permettent l’obtention se trou- 
vent dans l’encadré ci-contre. 


Il est donc facile de déterminer les uns après les autres les coefficients A(2p — 1). 
Si l’on connaît déjà les nombres de Bernoulli B(1}, B(3), ..…., B(2n — 3), la formule de 
la comtesse donne aussitôt B(2n — 1). 

On rencontre partout, en mathématiques, les nombres b(p). Leur champ de prédi- 
lection est certainement la combinatoire, mais aussi l’analyse, notamment à cause d’une 
formule célèbre due à Euler et Mac-Laurin, pour calculer certaines sommes (on en 
utilise d’ailleurs certains cas particuliers dans les méthodes d’intégration numérique 
sur ordinateur). Il faut noter en passant que Bernoulli avait découvert ces nombres 
lors d’une tentative pour obtenir une formule générale qui donne la somme des puis- 
sances d’ordre p des n premiers entiers (celles des nombres eux-mêmes, de leurs carrés 
et de leurs cubes étaient connues depuis l’Antiquité). Les nombres de Bernoulli four- 
nissent la somme de plusieurs séries. Comme le rapporte elle-même Ada de Lovelace 
— en oubliant qu’il ne s’agit que d’une égalité en valeur absolue — on peut écrire 


ès E L n co 
si |BQn- 1)1 =(C2.(n)!)/Q mr) PAT 
2 


par exemple : 72/6 = À 1/p?, 74/90 = S1/pt 
p= p= 


Même dans l’étude du célèbre théorème de Fermat, les nombres de Bernoulli jouent 
un rôle essentiel en établissant, parmi les nombres premiers, une discrimination a priori 
bien surprenante. On ne sera pas surpris, par contre, de les retrouver très normale- 
ment, compte tenu de leur naissance, dans les dérivées successives et les développe- 
ments en série des fonctions tangente et cotangente, puisque f faisait intervenir une 
exponentielle. Bref, ils sont partout ; les voir se glisser dans ce qui est très probable- 
ment le premier exemple de programmation informatique jamais écrit est sans doute 
un signe de plus de leur étonnante versatilité et de la fascination que leurs mystères 
font planer sur des têtes curieuses ! 


LIST - PAGE 44 


riel que nous possédions — il fut déposé 
au musée de South Kensington en 1910 
par le général Henry Babbage — ne 
nous permet pas de vérifier concrète- 
ment les principes de son créateur. Mais 
les textes de Babbage et de son fils, et 
surtout de Menabrea et Ada de Love- 
lace, sont assez significatifs. 


Une formidable 


anticipation 


Les instruments principaux étaient 
des cartes perforées, assemblées en lon- 
gues files ou chaînes — l’équivalent de 
nos « listes » modernes — comme sur 
les métiers à tisser. Certaines portaient 
simplement des nombres ; ces Variables 
Cards étaient chargées de données d’en- 
trée, de résultats ou de valeurs intermé- 
diaires, exactement comme nos mémoi- 
res vives. Certaines définissaient les 
« types » des variables, comme en For- 
tran ou en Pascal. D’autres étaient de 
nature logique : parmi les Operations 
Cards, on trouvait des instructions 
mathématiques usuelles (+,—,X,/) 
mais aussi des Directives Cards qui éta- 
blissaient les liaisons entre les opéra- 
tions, permettant par exemple de sau- 
ter sélectivement certaines cartes, d’en 
répéter des blocs entiers, etc. 


Programmer ne pouvait évidemment 


Quelques coefficients, A(n): 


A(0) = —1/2 ((2n-1)/(2n+1)) 
AG) =n 
A(3) = (n(n—1)(2n—1))/6 


Et pour p <n: 


A(2p-—1) = (2n)!/((2p}!(2n —2p+1)!) 
D'où : 

A(2p +1)/A(2p-1)=((n-p}/(p+1) x 
(@n-2p+1)/ (2p+1)) 


Et surtout, la valeur très simple : 


AQ2n-—1)=1 


se faire qu’en langage machine (ou 
assembleur, ce mot étant ici particuliè- 
rement adéquat). Chaque utilisateur 
pouvait avoir sa bibliothèque de cartes 
réunies une fois pour toutes pour des 
applications familières. Un programme 
de calcul de l’expression (AB+C)D, 
emprunté à une note de Henry Babbage, 
se présente ainsi : 

° mettre À en mémoire 1 (dans la 
colonne 1) ; 

e idem pour B, C, D respectivement en 
2, 3,4; 
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Mi 2 Mn ‘Éd 


ttes PP Ps PP Det Ps AS em Et PO Et 


. faire passer A puis B du magasin au 
moulin ; 

e calculer P = AB et le mémoriser en 5 ; 
e Placer P et C dans le moulin ; 
calculer Q = P +C et le mémoriser en 
amener Q et D dans le moulin ; 
calculer R = QD et le mémoriser en 7 ; 
imprimer R. 


Tout ceci, assez banal, nécessite 17 
cartes. Les textes de Menabrea et Ada 
de Lovelace offrent des exemples bien 
plus complexes. L’article principal étu- 
die la résolution d’un système de deux 
équations linéaires à deux inconnues — 
sans s’occuper des cas exceptionnels. La 
traductrice s’attaquera à des niveaux de 
difficulté plus grands notamment sur 
deux points : une note consacrée à des 
calculs trigonométriques, et sur- 
tout à la fin des annexes, au calcul 
systématique des célèbres nombres de 
Bernoulli. Tous les exemples qu’elle 
développe semblent dus à son talent, 
sauf peut-être le dernier : Babbage affir- 
mera plus tard lui avoir fourni une 
ébauche de solution, qui était malheu- 
reusement gravement inexacte. On voit 
que les « bogues » n’ont pas attendu 
notre siècle ! 


. +. ee ne 


Quelques cartes 


et des calculs infinis 


Les textes de l’inventeur fournissent 
évidemment de précieux renseigne- 
ments : on y lit par exemple le principe 
des calculs en multiple précision, par les- 
quels la puissance théorique de la 
machine est presque illimitée. Mais le 
plus important à nos yeux modernes est 
à lire dans l’album de la comtesse. Si 
c’est à Babbage lui-même que l’on doit 
par exemple la notion de test avec bifur- 
cations, c’est elle qui l’explique en toute 
clarté. Elle remarque, ou en tous cas 
démontre sans ambiguïté qu’un nombre 
fini de cartes, utilisées séquentiellement 


Quelques indications biographiques 
sur les auteurs des articles de 1842 et 1843 


Le Général du Génie Luigi Federico Menabrea, né à Chambéry le 4 septembre 1809, 
mourut marquis de Valdora et ancien Premier ministre italien (de 1867 à 1880), le 24 
mai 1896. Il avait étudié les mathématiques à Turin, et avait été prié par un curieux 
personnage, le baron Giovanni Plana, polytechnicien de la promotion de 1800 et ami 
de Stendhal, de rédiger des notes sur les conférences qu’à sa demande Babbage avait 
tenues à Turin en septembre ou octobre 1840. Ses 21 pages devinrent 53 après qu’Ada 
(1815-1852) se fût chargée de traduire et d'étendre son travail. Elle connaissait Bab- 
bage depuis le 5 juin 1833, date que l’on peut donc considérer, au moins symbolique- 
ment, comme marquant le début de l’informatique moderne. 

Fille d’une mathématicienne amateur d’ailleurs très douée, et du célèbre poète Lord 
Byron, elle fut rejetée par ce dernier qui ne voulut jamais la voir et quitta même sa: 
mère avant sa naissance. Elle épousera en 1835 Lord King qui devint comte de Love- 
lace et baron Wentworth. Après son éclatante contribution au travail de Babbage — 
qui n’alla d’ailleurs pas sans conflits dus à des caractères affirmés de part et d’autre 
— sa courte, vie fut très pénible. Cherchant dans le jeu, les courses de chevaux et la 
drogue, des sensations hors du commun, elle mourra en novembre 1852 d’un cancer 
de l’utérus. La terrible Lady Byron l’isola férocement durant son agonie, la privant 
d’opium pour la punir d’une liaison scandaleuse ayant mis en péril les bijoux de famille 
pour une dette d’hippodrome.. Les deux êtres d'exception que côtoya cette mégère 


n’eurent guère à s’en féliciter ! 


autant de fois qu’il est nécessaire, peut 
servir à résoudre des problèmes néces- 
sitant des actions aussi nombreuses que 
lon voudra. C’est évidemment un prin- 
cipe fondamental. 


L’étude sur les nombres de Bernoulli 
est indiscutable de ce point de vue : 
même s’il faut théoriquement une infi- 
nité de mémoires pour emmagasiner 
tous les résultats intermédiaires, Ada 
montre avec évidence, en assumant tous 
les détails, que l’essentiel du calcul, très 
technique, ne nécessite que la manipu- 
lation de ce qu’elle appelle un « cycle » 
de 25 cartes, toujours les mêmes, et que 
75 cartes en tout suffisent (nous dirions 
un programme de 75 lignes, avec une 
sous-routine principale de 25). Il est dif- 
ficile de savoir si Ada fut réellement la 
première programmeuse ou si elle ne fut 
que l’excellente rédactrice de son maî- 
tre et ami : mais elle aurait été, en tous 
les cas, un professeur hors classe ! A 
part la mention par laquelle Babbage 
déclare lui avoir suggéré l’étude sur Ber- 
noulli, on ne trouvera pas trace de 
demande de priorité sur les idées de l’ar- 


ticle de 1843 : il semble donc juste d’en 
créditer la comtesse de Lovelace pour la 
plus grande part. 


Si vous lisez 
l'anglais 


À un moment où l'intérêt pour l’his- 
toire de l'informatique se développe à 
coups de publications introuvables et 
hors de prix, on se doit sans aucun 
doute de signaler que pour une dizaine 
de dollars on peut commander dans une 
librairie spécialiste du livre américain ou 
étranger, le remarquable livre de poche 
(Editions Dover) sur Charles Bab- 
bage, contenant ses principaux textes et 
surtout l’article de Menabrea et Ada de 
Lovelace (sous la direction de P. et E. 
Morrison). Sa lecture, crayon en main, 
fait progresser davantage en program- 
mation qu’une bibliothèque complète. 
Voilà un beau cadeau de Noël ! 


André WARUSFEL 


S DEMAIN , L'INFORMATIQUE VA DEVENIR UNE SECONDE LANGUE FOUR LES FRANÇAIS” (LAURENT FABÏUS , Remier Minisree ) 


| 


46) AE 


N 
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CANON X-07 


LISTER L'ERREUR 


AUTOMA 


ANS certains Basic, ) 
programme, 5 s'il se produit une 

syntaxe, la ligne incriminée est listée 
automatiquement. Cette « fonction » bien 
intéressante pour mettre au point | un programme 
n'existe pas sur le Canon X-07. Heureusement, il 
est possible d'y remédier avec un programme en 
langage-machine et deux lignes supplémentaires 
dans le programme Basic à mettre au point. 


ur de 


HAS ÇA DOiT COÛTER CHER 
UN ORDINATEUR ! 


JEN Ai MARRE D'AVOIR DES DETTES - 
Je VAS M'ACHETER UN ORDINATEUR 
Pour GERER MON BUDGET 


LIST - PAGE 46 


TIQUEMENT 


Une erreur de syntaxe est si vite 


Jor S du déroule en { d ‘un É arrivée ! Le Canon X-07 est capa- 


ble lui aussi de lister la ligne où l’erreur 
s’est produite. Il lui suffit d’un pro- 
gramme en langage-machine et de deux 
lignes supplémentaires au programme 
Basic concerné. L'erreur peut être de 
type quelconque : aussi bien de syntaxe 
que due à une utilisation erronée des 
fonctions. En outre, pour en permettre 
une étude ou des modifications, la ligne 
est bloquée comme avec LIST @. 


Dans un premier temps, il faut met- 
tre en place la routine en langage- 
machine à l’aide d’un programme Basic 
(Programme d’implantation). Le seul 
problème réside dans la détermination 


JUSTEMENT , C'EST POUR GA QUE DE 
VOUDRAÏS ENCORE  T'EMPRUNTER 
UN PEU D'ARGENT ! 
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NA Eh eS = pt 


4 © Me 1e me 


= 
es 


Le coin des curieux 


mentaires et divers renseignements. 


Pour ceux qui souhaitent en savoir plus, voici la liste désassemblée avec des com- 


LD B,8 Dépilage dû à EXEC 6,8 
POP HL 225 
DJNZ 253 16,253 
LD HL,(789) Récupération numéro ligne erreur 42,21,3 
PUSH HL 229 
POP DE 209 
CALL 62219 Recherche adresse ligne 205,11,243 
LD IY, 16384 Pour simuler LIST @ 253,33,0,64 
i JP 65162 Saut routine LIST 195,138,254 


Quelques informations supplémentaires 
e (789) + (790)+256 : 


numéro de ligne où s’est produite l’erreur 


: adresse réelle pour le GOTO du ON ERROR 
: routine de recherche d’adresse de ligne contenue dans (DE), 


e (177) : numéro de l’erreur 
e (795) : indicateur erreur si 255, sinon 0 
e (793) +(794)+256 
. en 62219 
résultat dans (BC) 
. en 65162 


: routine LIST numéro de ligne de fin en pile, adresse 
première ligne dans (BC) 


de l’adresse d’implantation de la rou- 
tine : AD. Celle-ci est fortement liée à 
la configuration de chaque X-07 (pour 
plus de détails sur l’implantation de rou- 
tines en langage-machine dans le Canon 
X-07, voir LIST 11, pages 35 à 37). Mais 
il est possible, quasiment sans risque, de 
prendre comme valeur pour AD, la 
taille mémoire maximum en place (8, 
12, 16, 20, 24 Ko). Il faut savoir que : 
e la taille de la zone fichiers est fixée par 
FSET ; 

e la taille de la zone chaînes est fixée par 
CLEAR, elle est de 50 par défaut ; 

e la taille de la pile système est d’envi- 
ron 500 ; 

e la taille du ou des programmes en 
langage-machine est forcément variable. 


x 


Attention aux 


débordements 


Le choix d’une telle valeur pour AD 

a l’avantage de conserver la ou les rou- 

- tines, même après l’extinction, et de ne 

pas risquer d’interaction avec le Basic. 

Il vaut mieux tout de même vérifier la 

présence des routines à chaque utilisa- 

tion, car un gros programme Basic ou 

un grand nombre de variables peuvent 
altérer les codes. 


Un exemple de détermination 
d’adresse utilisable avec une configura- 
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tion de 12 Ko (soit le modèle de base et 
une carte mémoire de 4 Ko), c’est-à-dire 


12288 octets, peut être : 

e 2000 octets de fichiers mémoire vive :; 
e 50 octets pour les chaînes ; 

e 500 octets pour la pile ; 


e 200 octets pour un programme en 
langage-machine déjà en place et pour 


le suivant. 


10 CLS: AD = XXXXX  . 
20 READ A : IF À < 0 THEN END 


Ainsi, la valeur choisie pour l’adresse 


AD est: AD=12288-2750=9538 
Il est donc possible de prendre 9538 
comme adresse d’implantation. Les 
codes langage-machine seront mis en 
place en 9538, puis 9539, et ainsi de 
suite. Cette première adresse est à rete- 
nir Car les appels au programme en 
langage-machine y feront référence. 


Quant au (ou aux) programme Basic 
auquel s’applique cette routine, il suf- 
fit de lui ajouter les deux lignes 
suivantes : 

1 ON ERROR GOTO 65000:REM 


ee 


Programme d'implantation 


30 POKE AD,A : AD=—AD+1 : GOTO 20 

40 DATA 6,8,225,16,253,42,21,3,229,209 

50 DATA 205,11,243,253,33,0,64,195,138,254, — 1 ee. 
L'adresse AB doit être calculée en fonction de la configuration du Canon X-07 (voir 

exemple dans le texte et LIST 11, pages 35 à 37). : : 


BRANCHEMENT EN CAS D'’'ER- 
REUR 

65000 EXEC AD:REM EXECUTION 
A L’ADRESSE D’IMPLANTATION 
(avec l'exemple ci-dessus, il faut rempla- 
cer AD par 9538). 


Les numéros de ligne, 1 et 65000, 
sont arbitraires, mais il est nécessaire de 
passer par le ON ERROR. Ainsi, une 
fois que tout est en place, si une erreur 
se produit pendant le déroulement du 
programme Basic, la ligne concernée est 
listée. 


: Laurent GRAS 
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VOTRE ORDINATEUR 


LA BOSSE DES MATHS ? 


BASIC ET MATHS 


AT:IL 


OUS les Basic n'ont pas la même “puissance” 

mathématique. Pour mesurer cette dernière, il 
faut tenir compte de la précision des calculs, des 
intervalles de calcul et du nombre de fonctions 
mathématiques. La comparaison de différents 
Basic révèle que, dans le domaine mathématique, les 


ordinateurs de poche sont souvent les meilleurs.” 


Une première observation du 

tableau récapitulatif des fonctions 
mathématiques indique que la précision 
des calculs est plus importante sur les 
petits ordinateurs, les ordinateurs de 
poche : FX-702P, PC-1212, Canon 
X-07. Ce dernier effectue les calculs sur 
14 chiffres, quel que soit le type des 
variables. 


Le FX-702P n’est pas seulement très 
précis. Il se distingue aussi par le grand 
nombre de ses fonctions mathémati- 
ques : 60. Ce nombre tient à la présence 
de 17 fonctions statistiques (moyenne, 
écart-type, corrélation, etc.) et de 12 
fonctions trigonométriques. Seuls le 
FX-702P et le FX-750P disposent de tel- 
les fonctions. 


Dans tous les Basic, on trouve : les 
quatre opérateurs (+ — + /}, les six 
opérateurs de relation (>, <, >=, <—, 
< >, =), l’élévation à la puissance, la 
racine carrée, la valeur absolue, la par- 
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tie entière, sinus, cosinus, tangente, 
exponentielle, exponentielle de 10 et 
logarithme naturel. Ce qui fait un noyau 
de 20 fonctions communes. 


La fonction signe n’est absente que du 
Basic du QL, la fonction arctangente — 
inverse de tangente — ne se trouve pas 
sur les Thomson MOS et TO7/TO7-70, 
le générateur de nombres aléatoires 
manque aux Sharp PC-1212 et PC-1500 
sur lesquels il est généralement écrit en 
quelques lignes de Basic. 


Quant au Basic du Commodore 64, 
il semble bien pauvre en fonctions 
mathématiques. Mais il dispose d’un 
atout de taille : la définition de fonc- 
tions par DEFFN. 

La ‘‘bosse des maths’” n’est pas don- 
née à tous les Basic et ceux qui l’ont 
n’ont peut-être pas la ‘bosse des 
jeux”... 


LIST 


- ORPI NATEUR OBÊSE 
REVANT DUNE CURE 
D AMAIGRISSEMENT 
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COMMODORE 


LES POINTEURS 


FONT 


DE BELLES LISTES 


ES pointeurs, l'ordinateur ne pourrait pas 

s'en passer, Dans Prolist, un programme qui 
liste les programmes, on va pouvoir en observer 
quelques-uns à l’œuvre. Des exemples d'exécution 
vous montreront la supériorité du produit : vous 
choisissez la largeur de la ligne imprimée, le 
nombre de lignes imprimées par page, la marge et 
le titre. Les caractères de contrôle de chez 
Commodore sont listés en clair 
— parfaitement ! — en anglais pour faire comme 
sur les touches, mais si vous voulez modifier ça, 
ne vous en privez surtout pas. 


Le programme Prolist fait appel 
— discrètement, il est vrai — aux 
pointeurs du Basic. Contentons-nous 
d’observer leur travail sans les appro- 
cher de trop près, de crainte de les 
effrayer. Prolist est un programme qui 
permet de lister des programmes avec 
une mise en page choisie par l’utilisa- 
teur. Voyons comment on s’en sert. 
Ce programme est numéroté 
« gros » : de 63450 à 63500. C’est qu'il 
est destiné à se placer à la suite du pro- 
gramme dont vous voulez une liste haut 
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de gamme. Il doit être lancé par un 
RUN 63450. Si vous disposez d’un uti- 
litaire Merge ou Append, pas de pro- 
blème. Sinon, réjouissez-vous, nous 
allons apprendre à faire un Append à 
la main. 

La recette de l’Append à la main tient 
en quelques lignes : 
e mettre en mémoire le premier pro- 
gramme (celui dont tous les numéros de 
lignes sont inférieurs au plus petit 
numéro de ligne du second) ; 
e frapper, en mode direct, A=PEEK 


(45)+256+*PEEK(46) - 2:PRINT A - 
INT(A/256)*256,INT(A/256). On 
obtient deux valeurs ; 

e frapper POKE 43,première valeur: 
POKE 44,deuxième valeur:CLR, puis la 
touche RETURN ; 

e charger le second programme, Prolist 
par exemple ; 

e quand le curseur réapparaît, frapper, 
toujours en mode direct, POKE 43,1: 
POKE 44,8. 


Ouvrir le canal. 


de l'imprimante 


Maintenant, on peut désosser le pro- 
gramme. Première ligne, OPEN 4,4. 
Après s’être baladée pas mal au cours 
de l’élaboration du programme, la com- 
mande d’ouverture du canal de Pimpri- 
mante s’est retrouvée tout au début. La 
ligne 63456 dimensionne deux tableaux. 


Le premier, T$(n), recevra la première 


série de DATA : les mots clés de Basic. 
Le second, Q$(n), recevra les caractè- 
res de contrôle du C.64. 

Mais il y a un problème : ce sous- 
programme de listage formaté est fait 
pour être ajouté par Append au pro- 
gramme à lister. Sinon, il n’aurait d’au- 
tre utilité que de se lister lui-même, ce 
qui serait décoratif, certes, mais assez 
limité. Or, il y a ces deux tableaux de 
DATA à lire. Et si le programme à lis- 
ter contient lui-même des DATA, ils 
risquent de prendre, dans le meilleur des 
cas, la place des mots clés de Basic, et 
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de donner de drôles de résultats... D’où 
une ruse, en l’absence de RESTORE N 
lire des DATA dans une boucle infinie 
ou presque, jusqu’à ce qu’on rencontre ! 
celui qu’on veut. C’est le but de la 
fausse boucle de la ligne 63456 : elle 
cherche les trois étoiles qu’on retrouve 
comme premier DAT A à la ligne 63489. 


Le vocabulaire Basic est donc lu. Puis 
quelques cases du tableau QS$(n), celles 
qui correspondent à des caractères de 
contrôle à lister en clair, sont remplies 
avec une technique différente : au lieu 
de se servir d’un compteur de boucle 
comme indice, on lit d’abord l’indice, 
puis, s’il est différent de zéro, le con- 
tenu. C’est pour cela que le dernier 
DATA de la ligne 63500 est un zéro. 


A plusieurs reprises au cours du pro- 
gramme, nous aurons à lire en mémoire 
un nombre stocké sur deux octets. On 
sait que la recette en pareil cas est de lire 
le contenu du premier octet, puis d’y 
ajouter le contenu du second multiplié 
par 256. On gagnera de la place en défi- 
nissant une fonction au moyen de l’ins- 
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truction DEF FNA(X). On va d’ailleurs 
s’en servir tout de suite pour aller cher- 
cher l’adresse du début de Basic que 
l’ordinateur garde... grâce à un poin- 
teur. Et si vous vous demandez pour- 
quoi ne pas donner cette adresse direc- 
tement et en clair, c’est que vous ne tra- 


FROLIET-E 4 


Ti 
[TRI 
_ 
3 
Œ 
LR T 


CC 


vaillez pas sur un Vic 20, dont le Basic 
se balade en fonction de l’extension de 
mémoire branchée ! Ce pointeur est en 
43-44 sur Vic et C.64, en 40-41 sur 
Pet/CBM. 

Le programme demande ensuite les 
numéros de la première et de la dernière 


CL= RS re MIOSESTRSCHP I, Li GOEURSEd FFE 
Es PRINT#S :PRINT#4 :RETLUEN 


BSSES CATA#KEE, EMNCLFOQR.HEËRT DATA, THPUTE, IH+ 


FUT.OIti.READ. 
E 


LET.GOTC.EUN,TF ,RESTORE 


498 DATAGOSUE ,RETURH,REM.STOR. OH HAIT, Le 
OAC:SAVE .VERIFY.OEF .FPORE.FRINTH.PRI+ 


HT 


Ss4S1 CATACONT,LIET,CLR., CHOSE OPEH, CLOS 


E.GET,NEU, TREK, TO,FH, SPC 
SR+SS CATASTEF +4, ,# TT AND OR, x, 
FRE ,POS .SGR .EHC, LOG 
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F 
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THEH. HOT 
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S.S1H,TAH.ATH,PEER.LENLETES Ve 


AL.HSC.CHRE.LEFTE.RIGHTE.MICS , GO 
Ssd94 CATACOHCAT ,OOPFEH,0OCLOSE , RECORD. HEADC+ 

EF. C'OLLECT,.BACEURF CORPS, APPEMNC,COSAVE 
ESS OATADLOAD CATALOG, RENAME , SCRATCH,COISs- 


FECTOR "4" 


SSd4Sé DATA S.HHT.E,COFF,9,C0H,1d4,TAT.AF, Ce 
CUH.18,RYS,19,MH0NME.264.0EL.Z2E.REC 

dr DATAZ 9 .RIGHT.SO.GRN,S1 ,BLU,129,0RG,+ 
133.F1.,124,F8.135.FS.126.FrT.ISP.FE 

Sage COATALZE,.Fd, 139,F6,148,F8,.142,GRAFH,+ 
14. ELE. 145. UP, 146.0FF.14F7,CLE 

CLR CATALdE,IMET, 145,ERUH,15@,L,. REC, 151+ 
-GR,1,152,6R.2,153,L,0GRN,.1S4,L.,B8LU 
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EL.159,CVH,1eû,SH.SF.& 


Les caractères de contrôle du Pet/CBM 


HECITI CARS MÉALCGR MAT MIH 


MORE ESED) 


SONMNER LE 

APPEL  TAELIL AT EUH 
FE TOUR ARRI TT 
FICCE TEATE 


PV LEFUIS LE CURSEUR 


IOH YLUEU 
EH HAUT OH GAUCHE CEC 


CDESACTIYE LA FAGIMATILNH CIF MONTE 


EFFACEMENT GE CHEACTERE 
CURSEUR CECUT 


CIBLE SOMHERLE 
FOSE CM TAQUET GE TABULATLICOH 
SHIFT RE TOLIHE-CH4R TI CET 


AGE EH MODE GERFHIGUE 
SELF HAUT 


FIH CDIMVERS TOR YTICEC 
EFFHCEMENT QÉCERH 


# IHUTILISE 
+ CENT dE 


N° 12 - SEPTEMBRE/OCTOBRE 85 


RIT LU 
CEMENT TLAQUS EU CURSEUI 
GAUCHE 


LHIET, ESPACE 


lignes à lister. Ces numéros ne sont pas 
critiques en ce sens que vous pouvez 
répondre 0,63499 (il s’agit d’un INPUT 
double : deux entrées séparées par une 
virgule) même si votre programme ne 
comporte ni ligne 0, ni ligne 63499. 


Ceux qui n’ont jamais retrouvé dans 
leurs papiers une feuille de programme 
dont rien ne permettait de savoir à quoi 
il servait ne comprendront pas pourquoi 
Prolist prévoit de sortir un titre en haut 
de chaque nouvelle page. Les autres si. 
Le nombre de lignes par page imprimée 
est également paramétrable, ainsi que la 
marge (qui sera simplement imprimée 
au début de chaque ligne sous forme 
d’une chaîne de blancs M$), et la lar- 
geur de la ligne imprimée. 


Les lignes 


de Commodore 


Les initialisations terminées, un appel 
au sous-programme en 63487 imprime 
le titre du programme et le numéro de 
page, saute une ligne, met à 2 le comp- 
teur de lignes CL, sur quoi on peut pas- 
ser aux choses sérieuses. Il faut savoir 
qu’une ligne de Basic chez Commodore 
commence par deux octets de lien, qui 
contiennent l’adresse du début de la 
ligne suivante. On trouve ensuite le 
numéro de ligne, toujours codé sur deux 
octets, puis la ligne elle-même, et enfin 
un zéro qui indique la fin de la ligne. 
Et puis ça recommence : adresse de 
début de la ligne suivante, numéro, 
corps de la ligne, zéro, etc. Si la ligne 
est la dernière du programme, ce zéro 
est suivi de deux autres zéros, ou si vous 
préférez, l’adresse de la ligne suivante 
est Zéro. 


Lorsque la ligne 63463 est exécutée 
pour la première fois, la variable A 
contient l’adresse du début de la pre- 
mière ligne du programme à lister (2049 
sur le C.64). À et A+1 contiennent 
donc l'adresse du début de la ligne sui- 
vante, extraite par FNA(A) et rangée 
dans la variable X. A +2 et A +3 con- 
tiennent le numéro de ligne, extrait par 
FNA(A +2) et rangé dans la variable L. 
La variable G est un drapeau qui nous 
permettra de savoir si les guillemets sont 
ouverts ou non. 


Si l’adresse de la ligne suivante est 
zéro, ou si le numéro de la ligne s’an- 
nonce supérieur à la dernière ligne à lis- 
ter, c’est que le programme a fini : il 
ferme poliment le canal imprimante der- 
rière lui et va se coucher. En revanche, 
si le numéro de la ligne s’annonce infé- 
rieur à la première ligne à lister, on va 
examiner directement la ligne suivante, 
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dont l’adresse de début était en X, mais 
va venir en À (ligne 63464). 


La ligne 63465 commence par un petit 
crochet en 63483 pour mettre à jour le 
compteur de lignes imprimées, met à 
zéro le compteur de caractères, sort la 
marge, écrit le numéro de ligne sur cinq 
colonnes justifiées à droite, et met à un 
le compteur de répétitions. 


Cinq caractères, 


un seul code 


Un mot sur le sous-programme qui 
commence à la ligne 63477. On lui 
donne une chaîne de caractères X$ et il 
l'écrit, caractère par caractère, avec un 
détour via 63480 qui compte ces carac- 
tères, et compare le résultat avec la lar- 
geur de ligne LL fixée par vous. Si ce 
nombre dépasse LL, il imprime un 
CHR$(95), c’est-à-dire une flèche à gau- 
che pour marquer que la ligne est cou- 
pée, et passe à la ligne. Il vérifie qu’il 
n’y a pas de changement de page à 
effectuer (c’est le GOSUB 63483), refait 
une marge, saute six espaces pour bien 
mettre en valeur les numéros de lignes, 
remet à jour le compteur de caractères 
et revient. Vous pouvez (ligne 63481) 
supprimer le SPC(6) et mettre CC=0. 
Le résultat est moins clair, mais on 
gagne de la place. À vous de choisir. 


C'est à la ligne 63466 que commence 
le décorticage de la ligne Basic propre- 
ment dite. En principe, une ligne de 
Basic chez Commodore ne dépasse pas 
80 caractères, mais basta, ne soyons pas 
mesquin, mettons-en un chouya de plus 
et allons jusqu’à 93, pour rire ! C’est 
donc encore une fausse boucle (on n’ira 
jamais jusqu’au bout) qui examine un 
par un les octets d'adresse K et les 
appelle P. Pendant qu’on y est, un coup 
d’œil prévoyant sur l’octet suivant, bap- 
tisé W. Si l’octet en cours vaut zéro, 
c’est que la ligne est terminée. Dans ce 
cas, on passe à la ligne, physiquement 
sur le papier, et on passe à la ligne (de 
Basic) suivante. 


Vient alors, à la ligne 63467, la ques- 
tion cruciale des guillemets. Lorsque la 
machine interprète une ligne de Basic, 
de deux choses l’une : ou bien des guil- 


LIST - PAGE 54 


lemets ont été ouverts — et non refer- 
més — et dans ce cas la machine trans- 
met la chaîne entre guillemets sans cher- 
cher à comprendre ni même à savoir ce 
qu’il y a dedans, ou bien les guillemets 
ne sont pas ouverts, et dans ce cas-là, 
il faut savoir démêler les variables, les 
nombres, les signes, les mots Basic. Et 
c’est là qu’interviennent plus précisé- 
ment les mots clés du Basic. 


Quand sur votre écran vous lisez 
PRINT, vous ne pouvez pas trouver à 
l’emplacement correspondant en 
mémoire le P,leR,lel,leNetleT. 
A la place de ces cinq caractères, l’or- 
dinateur en a mis un seul, qui constitue 
un code, ici 153. C’est pour cela que le 
programme va chercher dans la liste des 
DATA l'inscription en clair qui corres- 
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pond à ce code. Le premier mot clé 
Basic de nos DATA, qui est END 
(humour américain), a pour code 128. 


Prenons un exemple, vous êtes en 
train de déchiffrer une ligne, et vous 
tombez inopinément sur le code 165. 
Qu'est-ce donc ? Pour le savoir, vous 
consultez discrètement votre drapeau 
guillemets : 

. si les guillemets sont ouverts, ce carac- 
tère de code supérieur à 127 ne peut être 
qu’une majuscule ou un caractère 
graphique ; 

e si les guillemets ne sont pas ouverts, 
ce caractère de code supérieur à 127 ne 
peut être qu’un mot clé de Basic (ligne 
63469). 


De même, entre guillemets, un carac- 
tère de code inférieur à 128 est une let- 
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CURE 
FAGTHATIOH DESACTIVYÉE CIMPFRIMANTE 
EFFACENMENT QE CARACTERE 
FQLIGE 

EUR CROIT 

. 


CIFHNGE 
SIHUTILISE EH FRIHT' 
SHIFT RETOUR-CHARTIOT 

SE EN MAGE GRAPHIQUE 


SION ICE 
L'ECRAN 


GET à 
WIOLET . 
CURESELIR GAUCHE 
JAUNE 
CF 
ESPACE 


SHIFTE 


Cut CLAVIER 


Les caractères de contrôle qui ne figurent pas au clavier peuvent être obtenus par 
la séquence : [INST] [SPACE] [LEFT] [RVS] suivie du caractère correspondant. 


Par exemple, pour passer en mode texte, frapper : 


100 PRINT BONJOUR puis 


[RETURN]. Ramener le curseur sur le B et frapper [INST] [SPACE] [LEFT] [RVS], 
puis la touche N, puisque le caractère de contrôle du mode texte apparaît dans une 
chaîne comme un N non shifté en vidéo inversée. 


N° 12,: SEPTEMBRE /OCTOBRE 85 


tre normale, et donc dépourvue d’inté- 
rêt ; hors guillemets, c’est un nom de 
variable, et il faudra en faire quelque 
chose. 


Si donc, à la ligne 63467, P vaut 34, 
c’est qu’on est en présence d’un guille- 
met, et l’on bascule le drapeau, c’est-à- 
dire qu’on le met à —1 s’il valait zéro 
et inversement. Si l’on est en mode guil- 


lemets, on appelle le programme en 
63471. 


Le premier test consiste à vérifier s’il 
s’agit d’un caractère de contrôle (ou 
d’un espace) et si le suivant lui est iden- 
tique. Car le programme, s’il y a six 
espaces, par exemple, écrira 6 SPACES. 


Lorsque deux caractères de contrôle 
se suivent, on se borne à incrémenter le 
compteur de répétition R, et l’on va voir 
le caractère suivant. Si ce n’est pas un 
caractère de contrôle répété, c’est peut- 
être un caractère de contrôle isolé, ou 
le dernier d’une suite de caractères répé- 
tés. Dans ce cas, il a sa traduction dans 


Modifications 
du programme 
pour la Brother EP-44 


Un exemple avant et après exécution 
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le tableau Q$(n) et l’on passe à 63474, 
qui imprimera un espace si c’en est un 
tout seul, sortira la traduction en clair 
du caractère avec, éventuellement, le 
nombre de répétitions, et remettra le 
compteur de répétitions à 1 avant de 
revenir. 


Incrémenter 


avec prudence 


Si c’est un caractère normal, on l’im- 
prime normalement (ligne 63473), on 
vérifie que l’on n’a pas atteint la fin 
d’une ligne imprimée, on incrémente le 
compteur de caractères et on passe au 
suivant. 


La routine en 63483 incrémente le 
compteur de lignes préposé au change- 
ment de page. Dans cette version du 
programme, elle joue la prudence : en 


63455 OPEN4,2,2,CHR$(2)+CHR$(1) 


IL FAUT QUE L'OUVERTURE DU CANAL 
SE FASSE AU DEBUT DU PROGRAMME, 
CAR ELLE PROVOQUE UN CLR, C'EST- 
À DIRE LA PERTE DES VARIABLES. 


63463 X-FNACA)D:L-FNACA+2):G-=0:IFX-O0ORL° FT. 
HEN63501 


VOIR 63501 SQ. 


63476 X$-CHR$( 123) +X$-Q$CP)+:CHR$(125) :GOS7 
UB63478:R=1: RETURN 


CHR$(123) ET CHR$(125) SONT LES 
PARENTHESES: ( 7}. 


63481 IFCC ILLTHENPRINT#4,CHR$(126) : GOSUB 
63483: PRINT#4,SPC(6); :CC:5 


CHR$(126) EST LE TILDE: 


63501 PRINT"{DOWN)FRAPPER {RVS}RETURN{OFF” 
} SI L'IMPRESSION EST", "TERMINEE" 

63502 GETRS:IFR$: >CHR$(13) THEN63502 

63503 PRINT#4:CLOSE#4 : END 


LA FERMETURE DU CANAL RS232, 

COMME SON OUVERTURE, PROVOQUE 
UN CLR. IL FAUT DONC S'ASSURER 
QUE TOUTES LES DONNEES ONT ETE 
TRANSMISES AVANT DE LE FERMER. 


+133 
sFHACSES 


du programme 
pourle 
_Pet/CBM 


| LLC CT TT TR ESS nTCTETS NET D 


de DOM 


fin de page, elle arrête l’impression et 
demande la permission de continuer. 
L'utilisateur avisé n’accordera cette per- 
mission qu’après avoir mis une nouvelle 
feuille en place. Si l’on utilise du papier 
continu, on peut remplacer les lignes 
63484 et 63485 par une boucle de 
PRINT #4 correspondant à la longueur 
de la page utilisée (souvent 66 ou 72) 
moins la longueur de page LP donnée 
par l’utilisateur (63460). Le programme 
peut alors incrémenter le compteur de 
pages NP, mettre de côté le compteur 
de caractères, inscrire en haut de la nou- 
velle page la marge MS, le titre du pro- 
gramme T$ et le numéro de page, remet- 
tre à jour le compteur de lignes CL, 
récupérer la valeur du compteur de 
caractères, et sauter proprement une 
ligne avant de continuer. 


x 


Les modifications à apporter pour 
faire tourner ce programme sur un 
CBM sont minimes : elles consistent 
simplement à adapter en 63459 l’adresse 
du pointeur de début de Basic, et en 
63496 et suivantes, les caractères de 
contrôle. 


Les modifications pour faire tourner 
le programme avec une Brother EP-44 
et un Vic 20 ou un C.64 muni de l’in- 
terface Vic 1011A se répartissent en 
deux catégories : d’une part les lignes 
63476 et 63481 qui remplacent les cro- 
chets signalant un caractère de contrôle 
par des parenthèses et la flèche gauche 
des lignes coupées par un tilde ; d’au- 
tre part celles qui ont trait au fonction- 
nement particulier du port RS-232C sur 
le C.64 (voir encadrés). 


Au nombre des exotismes les plus 
vicieux de chez Commodore, figure la 
gestion du port RS-232C avec l'interface 
idoine. L'ouverture d’un canal RS-232C 
provoque l'attribution de deux zones 
tampons destinées aux caractères émis 
et reçus. Ce ne serait pas un mal en soi 
si, pour bien fixer les limites de ces deux 
zones, le C.64 n’avait besoin de réini- 
tialiser les pointeurs (encore eux) avec 
un CLR bien senti. En d’autres termes, 
dès qu’un canal RS-232 est ouvert, on 
perd toutes les variables qu’on pouvait 
avoir en mémoire. La prudence la plus 
élémentaire invite donc à ouvrir son 
canal avant d’avoir eu la moindre varia- 
ble. Quant à la fermeture, elle ne s’oc- 
cupe pas de savoir si les caractères trans- 
mis sont allés jusqu’au bout. C’est le 
genre guichet de sécu : « Six heures 
moins le quart, le temps qu’on ferme, 
il sera six heures, repassez lundi. » D’où 
le petit ajout de la fin, demandant à 
Putilisateur de ne fermer que quand tout 
le listage sera terminé. 


François J. BAYARD 
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ÉQUATIONS 


_ LES INCONNUES 


DES 


SYSTÈMES LINÉAIRES 


N moins de quinze lignes et en un temps 
record, un programme Basic retrouve toutes prises par les inconnues. 
les inconnues — quand elles existent — d'un 
système d'équations linéaires, Si ce programme 
semble répéter quatre fois la même chose, il n'en 
donne pas moins les bons résultats. 


L’Homo Informathematicus, cette 

espèce en danger d’apparition, 
serait sans doute séduit par le pro- 
gramme Résolution de systèmes linéai- 
res qui répète quatre fois le même 
thème, avec de subtiles variations, pour 
aboutir à la résolution rapide de systè- 
mes d’équations linéaires par la 
méthode de Crout. Cette méthode 
repose sur la factorisation d’une matrice 
carrée en deux matrices triangulaires, 
« droite » et « gauche ». Nous nous 
serions bien gardé de l’infliger à tout 
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autre qu’à des passionnés de calcul 
matriciel s’il n’avait offert quelques 
« plus » dignes d’attention. 

Tout d’abord il est écrit en Basic stan- 
dard et ne consomme qu’un minimum 
de mémoire (voir son DIM). Il permet 
donc de tirer le maximum des micros les 
plus modestes. 

Ensuite, la restructuration de la 
matrice des coefficients intervient avant 
la saisie des termes constants, pour les- 
quels on dispose souvent de nombreu- 
ses séries de valeurs. Chaque entrée 


d’une de ces séries déclenche un calcul 
instantané des valeurs correspondantes 


Tout simplement 


fulgurant 


Enfin, cette instantanéité est obtenue 
dès le premier calcul. Même face à un 
système de plusieurs dizaines d’équa- 
tions à autant d’inconnues, le pro- 
gramme ne s’accorde jamais aucun délai 
de réflexion appréciable. Tous ceux qui 
se sont attaqués, avec des programmes 
classiques, à des systèmes d’équations 
un peu étoffés, même sur des micros 
relativement rapides, reconnaîtront là 
une performance insolite. 

Certaines ombres au tableau doivent 
néanmoins être signalées. 

e Le programme demande l’introduc- 
tion des coefficients dans un ordre inha- 
bituel qui impose une certaine attention. 
Il commence par les coefficients de la 
première ligne, puis le reste de la pre- 
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mière colonne ; le reste de la deuxième 
ligne, puis le reste de la deuxième 
colonne, etc. Il s'efforce de minimiser 
cet inconvénient en guidant la saisie par 
l’affichage des indices séparés par un 
signe approprié, ‘‘ —”” pour les lignes et 
‘“<? pour les colonnes. En pratique, on 
s’y fait assez vite, d’autant plus facile- 
ment que les entrées se succèdent tan- 
tôt en ligne, tantôt en colonne sur 
l'écran. 

. Les valeurs prises par les inconnues 
sortent dans l’ordre inverse de celui 
adopté pour écrire chaque équation. Il 
est facile d’éliminer cet inconvénient — 
si on considère que c’en est un — au prix 
d’un léger temps mort. Un tel « incon- 
vénient » est conservé pour mieux faire 
ressortir la rapidité du programme. 
L'affichage des indices écarté, bien 
entendu, toute ambiguïté. 

. Tous les Basic ne disposent pas de la 
double précision. C’est pourquoi elle 
n'apparaît pas dans ce programme. 
Ceux qui ont le choix pourront ajouter 
l'instruction DEFDBL A:-C en tête de 
programme. 

e Enfin, si par une grande malchance, 
le « pivot » de la matrice des coeffi- 
cients devait être nul (ou quasi nul), il 
entraînerait une division par zéro ou un 
dépassement de capacité. Dans ce cas, 
il faudrait recommencer le calcul après 
permutation avec une autre, de l’équa- 
tion correspondant à la dernière ligne 
entrée. En cas de deuxième échec, il con- 
viendrait de vérifier par un calcul de 


Résolution de systèmes linéaires 
Programme en Basic 
Auteur Pierre Barnouin 
Copyright LIST et l'auteur 


INPUT "degré" 


25 INPUT'";AîAKS 
28 IF K#HLÈN GOTO 


35 CEB:FOR J=1 
49 INPUT AtA{I,K 
45 PRINT:FOR I=i 


sent très bien sur notre PX-8, et même 
notre TRS-80. 


déterminant que le système est bien un 
« système de Cramer ». 

Nous n’entrerons pas ici dans le détail 
des factorisations de matrices. Précisons 
seulement que la matrice gauche L, pri- 
vée de sa diagonale de 1, et la matrice 


droite R, sont juxtaposées dans le 
tableau A(N,N). De son côté, le vecteur 
B(N) abrite successivement le vecteur Y 
tel que LY =B, puis le vecteur X tel que 
RX=Y,B désignant le vecteur des ter- 


OUT jL 
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15 FGR K=i TO N:FOR 
28 C=Q:FOR 1=1 TO K-1:C=C+A(I,JI#AUK, D) INEXT 


30 FOR I=é+t TO NEPRINT I'U"K 
TO K-1C=C+AT J)#AUT,K) 2NEXT 


30 C=Q:IF I>{ THEN FOR d=1 TO ! 
33 INPUT BER(I)=B-C:NEXT 

6% FOR IN TG 1 STEP -1:PRINT'X"I"="; 

65 CEBXIF IÉN THEN FOR J=I+1 TO NiC=C+A(I,J)#B(J):NEXT 
18 ECI)S(BII)-C)/ACTS TRE PRINT RCI, 2NEXT:G0TC 45 


Bizarres, les PRINT ? Et pourtant, ils pas- 


IN:DIM ACN,N) BEN) 
J=K TO NEPRINT K°-°J; 


JI=A-CINEXTEPRINT 
45 


}=(A-C)/A(K,KY NET I,K 
TG NEPRINT'E"I: 
—ISC=CHAT, J)KDOTIINEXT 


sur 


mes constants, et X celui des solutions 
cherchées. 

Après initialisation, ligne 10, on crée 
d’abord, alternativement, les lignes de 
la matrice R, lignes 15 à 25, et les colon- 
nes de la matrice L, lignes 30 à 40, puis 
le vecteur Y, lignes 45 à 55, et enfin le 
vecteur X des résultats, qui sont affichés 
au fur et à mesure, lignes 60 à 70. On 
revient alors ligne 45 pour recalculer s’il 
y a lieu les nouveaux vecteurs Y et X 
correspondant à d’autres séries de ter- 
mes constants. 


Un petit tour 


de passe-passe 


Le secret de la surprenante rapidité de 
ce programme : les temps de calcul esca- 
/ MOtés ont été émiettés tout au long de 
/ la saisie et de l'affichage dont ils utili- 
sent subrepticement les menus temps 
morts. En contrepartie, saisie et affi- 
Pate s’effectuent au fur et à mesure des 
besoins, ou des possibilités, de l’ordina- 
teur, et dans l’ordre qui convient le 
mieux à celui-ci. Un truc pas toujours 
facile à mettre en pratique mais grâce 
auquel le plus lent des ordinateurs 
pourra parfois donner l’impression de 
calculer comme un Cray One. 


Pierre BARNOUIN 


LIST - PAGE 57 


LOGO 


LOGO-LOTO 
IL Y A UN TRUC 


ES primitives DEFINIS et TEXTE permettent de 
transformer une procédure en liste de listes, 
et donc d'écrire des procédures qui créent ou 
modifient d’autres procédures. Après les deux 
exemples, très classiques, étudiés dans LIST 9 et 
10, nous allons aujourd'hui aborder quelques 
tours de passe-passe logiciels. 


Le Loto, personne ne le conteste, 

est un jeu de pur hasard. Il s’agit 
de tirer sept numéros de 1 à 49. La pri- 
mitive HASARD peut aisément se char- 
ger de le faire à la place des boules mul- 
ticolores. Bien sûr, il s’agit de nombres 
pseudo-aléatoires, mais cela suffit pour 
la présente application. 


Écrivons d’abord le véritable pro- 
gramme de tirage du Loto. On convien- 
dra que le septième numéro sorti sera 
automatiquement le complémentaire. 
POUR MOTO : N 
(ECRIS [TIRAGE N°] :N’’:TIR{]) 
FIN 
POUR TIR :L 
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SI COMPTE :L = 7 [RETOURNE : L] 

DONNE ‘BOULE ! + HASARD 49 

SI MEMBREP :BOULE :L 
[RETOURNE TIR :LJ[RETOURNE 
TIR PH :L :BOULE] 

FIN 


Vous remarquerez dans le titre de 
TIR le paramètre :L, résultat du TIR. 
Cette technique permet d’initialiser ‘L 
à la liste vide sans utiliser DONNE. Le 
nombre de boules tirées aurait pu aussi 
être passé en paramètre. Notre pro- 
blème principal n’est pas là. Nous vou- 
lons, à un certain tirage, obtenir un 
résultat prédéterminé. Par exemple, au 
tirage n° 3, sortir [1 23 45 6 7]. 


Une première méthode consiste à 
faire soi-même le tirage et à introduire 
une faute de frappe pour le troisième 
tirage en omettant de taper l’espace 
entre LOTO et le numéro. 

POUR LOTO3 

COPIEDEF ”. LOTO ‘LOTO 

EF “LOTO 

DEFINIS ‘LOTO [[NJ(EC [TIRAGE 

N°J:N’”:11234567J)J[EF 

“LOTOJICOPIEDEF “LOTO 

‘ LOTOI[EF ”’.LOTO]] 

EC [LOTO3 N’EST PAS DEFINI] 
EF ‘“LOTO3 
FIN 


LOTO3 commence par sauver le véri- 
table LOTO dans une procédure 
.LOTO (notez bien le point précédant 


ON PEUT 
TOUT DE MEME 
5£ METTRE 
UN PEU 
DANS L'AMBIANCE? 
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ici LOTO). Il modifie ensuite le pro- 
gramme du LOTO de manière à tirer la 
liste que vous avez prévue, c’est-à-dire 
1, 2, 3, etc. Il faut que ce pseudo-LOTO 
restitue ensuite le vrai, et qu’il efface la 
procédure .LOTO. Il faut encore que 
TIR3 semble une véritable faute de 
frappe et que l’on obtienne le message 
que Logo afficherait effectivement si 
TIR3 n'existait pas. Enfin, TIR3 doit 
s’autodétruire. Si tout se passe de la 
sorte, après le troisième tirage, plus rien 
ne peut prouver que ce dernier a forcé 
le destin. 


La vigilance 


ça se déjoue 


Cette méthode conviendra si deux 
conditions sont respectées : 

1. que la vérification de la conformité 
du programme ne fasse pas apparaître 
TIR 3 pour les deux premiers tirages, en 
particulier lorsque le vérificateur utilise 
la primitive IMTS ; 

2. que vous bénéficiiez de la complicité 
de l'utilisateur au troisième tirage pour 
qu’il fasse effectivement la bogue 
espérée. 

Il n’est donc pas si facile de tricher 
ainsi. Une seconde méthode consiste à 
créer une procédure supplémentaire 
chargée de lister les procédures en 
mémoire pour l’huissier vérificateur qui 
ne connaît pas forcément Logo. 
POUR VOIR 
IM [TIR LOTO] 

COPIEDEF ‘‘.LOTO ‘LOTO 

EF “LOTO 

DEFINIS ‘LOTO [[NIIECITIRAGE 
N°]:N ‘1123456 7]I[EF 
‘““LOTO] [COPIEDEF ‘LOTO 
‘“ LOTOI][EF‘. LOTO]] 

EF ‘VOIR 

DEFINIS ‘VOIR [[]IMTOUT]] 

IM [VOIR] 

FIN 


La procédure VOIR, écrite pour 
‘‘aider”’, donnera le résultat suivant : 
« impression de la procédure TIRAGE ; 
e impression de la procédure LOTO 
correcte ; 
< impression de la procédure VOIR, 
autrement dit : 

POUR VOIR 
IMTOUT 
FIN 


Comme prévu, la procédure VOIR 
apparaît donc bien composée d’une 
seule primitive IMTOUT. Cependant, la 
première fois qu’elle est exécutée, elle 
modifie LOTO sans que cela apparaisse. 
Le tirage qui suit est alors truqué, puis 
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la procédure LOTO est ensuite restituée. 
Les fois suivantes, VOIR provoque bien 
un IMTOUT des procédures correctes. 
Le tirage est donc truqué après la pre- 
mière utilisation de VOIR et redevient 
aléatoire pour les coups suivants. 


Cette méthode marchera à deux 
conditions : 
1. que le vérificateur accepte d’utiliser 
VOIR au lieu de IMTOUT au début. 
Par contre IMTS (Imprime titres) sera 
possible ; 
2. que la procédure VOIR ne soit pas 
utilisée deux fois de suite au début ; en 
effet, VOIR LOTO 1 VOIR sera cor- 
rect, mais VOIR VOIR LOTO 1 posera 
des problèmes. 


Cette méthode de trucages requiert 
moins de « mise en scène » que la pre- 
mière. En contrepartie, elle présente 
toujours l’inconvénient d’être déjouable 
par un professionnel. 


Enfouir 


et déterrer 


Voici donc une troisième méthode 
plus accomplie, mais aussi plus sophis- 
tiquée que les précédentes : elle néces- 
site en effet deux qualités que tous les 
Logo ne possèdent pas. On doit d’abord 
pouvoir enfouir des procédures grâce à 
la primitive ENFOUIS. Ces procédures 
sont alors cachées et il faut connaître 
leur nom pour faire apparaître leur texte 
sur l’écran. Si l’on utilise ENFOUIS, on 
se méfiera de la primitive DETERRE 
TOUT (DETOUT) qui ramène dans 
l’espace de travail consultable toutes les 
procédures et toutes les variables 
enfouies. Il faut aussi qu’existe la pos- 
sibilité de procédures auto-exécutables 
à l’appel des fichiers les contenant. Défi- 
nissons donc une procédure auto- 
exécutable : 

POUR AUTOEXECUTE 

DONNE ‘‘REDEFP ‘‘VRAI 

DEFINIS ‘‘DETERRE [{[L][]] 

DEFINIS ‘‘DETOUT {[]] 

DEFINIS ‘‘EC [[XJ[SI :X = 3 [ECRIS 
:X ECRIS [TIRAGE: 1234567] 
RENVOIE ‘‘NIVEAUSUPI][ECRIS 
:X]]] 

DONNE ‘‘REDEFP ‘FAUX 

GROUPE ‘‘PROC ‘‘AUTOEXECUTE 

ENFOUIS ‘PROC 

FIN 


La variable ‘‘REDEFP permet de 
redéfinir une primitive lorsqu’elle a reçu 
la valeur ‘‘VRAI. Elle reçoit à la fin la 
valeur ‘‘FAUX, ce qui protège à nou- 
veau les primitives d’une redéfinition. 
Les primitives DETERRE et DETOUT 
(déterre tout) deviennent inopérantes 


après leur redéfinition, ce qui protège 
contre d’éventuels curieux. 


La primitive EC n’est plus l’abrévia- 
tion d’ECRIS si le numéro de tirage est 
3, mais elle le reste pour tous les autres 
tirages. Par ailleurs, avec la variable 
‘“NIVEAUSUP, on détermine une pro- 
cédure sans revenir à la procédure appe- 
lante. La primitive GROUPE permet 
ensuite d’enfouir la procédure 
AUTOEXECUTE. Il suffit maintenant 
de « marquer » la procédure 
AUTOEXECUTE pour qu’elle s’exé- 
cute à l’appel du fichier contenant les 
procédures LOTO et TIR. 


On peut toujours 


confondre le tricheur 


Au lieu d’enfouir AUTOEXECUTE, 
on aurait pu la détruire par EF 
“AUTOEXECUTE, auquel cas il n’au- 
rait pas été nécessaire de modifier les 
primitives DETERRE et DETOUT. 


La procédure TIR est la même que 
celle qui a été définie au début de l’arti- 
cle. Quant à LOTO, il faudra la modi- 
fier légèrement : 

POUR LOTO :N 

EC :N 

(ECRIS [TIRAGE :] TIR{]) 
FIN 


JE N'AURAÏS JAMAS DD ESSAYER 
DE LE RENDRE INTELLIGENT AVEC 


A vous d'analyser maintenant les fail- 
les de cette méthode, plus sûre que les 


précédentes, certes, mais non- 
implantable sur tous les Logo. A vous 
aussi de poursuivre pour prévenir les 
éventuelles failles que vous aurez 
détectées. 


Cela étant, tranquillisez-vous : il 
existe des moyens presque parfaits pour 
déjouer tous les trucs de ce genre. Il en 
existe même au moins un qui est 
infaillible. 


Robert DAGUESSE 
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NOMBRES PREMIERS 


TEST DE FERMAT 


L'ARME ABSOLUE 


* 


E test de primalité fondé sur le théorème de 
Fermat a produit déjà de nombreux 

programmes. Celui qui est présenté ici va 
permettre de se prononcer de manière certaine sur 
le caractère premier ou non d’un nombre. Les 
résultats sont obtenus dans des délais 
acceptables, sans commune mesure avec ceux 
obtenus par factorisation. Ils peuvent 


être encore assez longs. 


Rappelons que d’après le « petit 

théorème de Fermat », si N est un 
nombre premier, et B (comme Base) un 
nombre quelconque non divisible par N, 
alors B*°'-1 est divisible par N. Le reste 
de la division de B*-' par N est désigné 
par R. On écrit R = B*°' (modulo N). 
R représente une image de la nature du 
nombre N : si R est différent de zéro, 
N est composé. Mais la réciproque n’est 
hélas pas vraie : si R = 0, N n’est que 
très probablement premier, il ne l’est 
pas de manière certaine (les nombres qui 
n’obéissent pas à la réciproque du test 
de Fermat sont dits pseudo-premiers). 


Résultats 


de travaux récents 


Une version plus restrictive du test de 
Fermat, dite décomposée, permet de 
réduire considérablement le nombre de 
ces cas litigieux. Ceux qui échappent à 
ce test sont constitués par ce que l’on 
appelle les nombres pseudo-premiers 
restreints, ou, pour adopter une nou- 
velle terminologie, pseudo-premiers 
forts et notés ppf (1). Les récents tra- 
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vaux de Pomerance - Selfridge - Wags- 
taff (Mathematics of Computation, 
American Mathematical Society, juillet 
1980) apportent les certitudes sui- 
vantes : 

e il n’existe aucun nombre inférieur à 
2 047 qui soient ppf en base 2 (ce résul- 
tat a été établi dans l’article précité de 
l’Ordinateur de poche) ; 

e il n’existe aucun nombre inférieur à 
1 373 653 ppf à la fois en base 2 et en 
base 3. Par conséquent, la validité du 
test en bases 2 et 3 peut être prolongée 
jusqu’à 1 373 651 (les nombres pairs 
étant exclus) ; 


Groupe des ppf (2,5,5) 
25 326 001 
161 304 001 
960 946 321 
1157 839 381 
3 215 031 751 
3 697 278 427 
5 764 643 587 
6 770 862 367 


ARG! 
Un test de fermat ! 
Je vais être 


démasqué a 


. 


| 
| 


Liste des variables 


: nombre à étudier 

:N-1 

: base 

: plus grand exposant de 2 tel que 

2'soit inférieur ou égal à M 
: 2° (plus grand nombre de la forme 
2° inférieur ou égal à M) 

: excédent de M sur C 

: reste du test 

F, G, H : variables de calcul en double 
précision ne dépendant que de N 

S à W : variables de calcul en double 
précision dépendant de R 

| A(27) à A(29) : bases successives, 2, 3 
et 5 

A(30) et A(31) : limites respectives de 
validité des bases 2 et 3 (2 047 et 

| 1 373 653) 

A(32) à A(39) : les huit nombres ppf 
(2,3,5) 

| X : indice des variables de A{27) à A(31) 

| Y : indice des variables de A(32) à A(39) 

| 


25 ON rauzz 


() Cette méthode de recherche des nombres premiers a été exposée en détail dans le 
numéro 23 de l'Ordinateur de poche, où elle était appliquée à un test de primalité à deux 
étages : d'abord en base 2 puis, si le résultat du test était « N probablement premier », 
en base 3. Ce test avait été vérifié jusqu’à N = 100 000. 
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Organigramme du programme 


Définition des voriables 
en double précision 
et dimensionnement (5) 


Introduction de N (10) 


| Trailement des cas 
partieuliers,£ et mültiples 
de 2 (Z0 et 30) 


Initialisations (40 à 90) 


N est.il 


Presume premier en base 
27? [100 à 470) 


oui 


eut 


N<2047? 
(180 et 200) 


non 
N est.il 
3?(1003470 


our! 


non 


\/ 


est 
un des huit ppF235)7 
{240 à 280) 


non 


N premier (240) 


e il n’existe que huit nombre inférieurs 
à 10" qui soient ppf simultanément en 
base 2, en base 3 et en base 5, qui for- 
ment ce que nous appellerons par com- 
modité le groupe des ppf (2,3,5) (voir 
la liste en encadré). 


La synthèse de ces résultats permet 
d’élaborer un organigramme d’une 
grande simplicité (voir ci-dessus) servant 
de support au programme présenté. 


Les temps d’exécution sont réduits au 
minimum grâce aux deux astuces sui- 
vantes : 
la ligne 250, début du sous- 
programme de calcul de R? (mod N), 
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Ÿ présumé premerenbasë 


is N < 1373653? 
{190 et 200) 


N est.; 
présumé premier en base 
S? (40042) 


N composé (180) 


: Les nombres entre parenthèses 
représentent les lignes du programme. 


L'’'arme absolue 


Programme en Basic standard 


Auteur Pierre-Ladisias Gedo 


Copyright LIST et l’auteur 


5 DEFDELA; BCD, F,GH3MN:DEFDBLG-H:DIM A(39) 


18 INPUT N 
20 IF N=2 THEN 249 


38 IF N/2=INTIN/2) THEN 188 

40 MEN-12E=INT(LOG(M+#4.5)/L0G(2)) 
50 F=1E-S:G=INT (FN) 2H=F4N-G 

EG A(27)=2:A(28)=3:A(29)=5 


70 A(30)=2047:A(31)=1373653 


80 A(32)=25326001 :A(33)=161404001 :A(44)=960946321 :A(35)=11 


non 57839381 


98 A(I4)=3219091751:A037)=3697278427:A(38)=5764643587:À(39 


)=6770862367 
198 FOR X=27 TO 29 


128 GOSUB 258 


140 IF D:0 THEN 128 
non 158 IF R=1 THEN 190 
168 IF R=M THEN 198 


| 198 IF NéL THEN 240 
208 NEXT X 
210 FOR Y=32 Tô 39 


118 B=A(X):L=ACX#+4) 2 C=INTUZTE) 2D=INT(M-C):R=E 


13@ IF C€=D LET R=BKR-N#INT(B#R/N) :D=INT(D-C) 


170 IF C>2 GOSUR 259:G0T0 168 
188 PRINT N5* COMPOSE* *END 


228 IF N=A(Y) THEN 180 


En 230 NEXT Y 


289 IF RG LET R=R+N 


248 PRINT N;° PREMIER" :END 

238 IF RÉ(IEG) LET R=RKR-N#INT(R#R/N) :C=C/22RETURN 

260 S=INT(F4R)2T=F4R-SEUSINTRKR/N) 2 VS INT (F#U) SH=FAU-V 
276 R=CIEIO)#(SKG-GKV+24GAT-GHU-HKV4TAT-HEW) 


298 IF RÈEN LET R=(IELD)#(S4G-GRVEZAGET-GHW-HAVETET-HHH)-N 


388 C=C/ZRETURN 


> 


épargne un calcul en double précision 
chaque fois que la simple précision est 
suffisante ; 

e après chaque test dans une base don- 
née, la ligne 190 évite d'effectuer un 
nouveau test dans la base suivante dès 
qu’il est constaté que N est inférieur à 
la limite correspondante (2 047 pour 
B = 2et 1 373 653 pour B = 3). 


Le mode d’emploi du programme est 
très simple : introduire au clavier le 
nombre N et presser sur ENTER. Le 
résultat apparaît après une attente de 
durée extrêmement variable suivant la 
taille du nombre et le type de machine. 
Dans ce que nous pensons être un cas 


Le signe de la ligne 110 ([) représente le signe de l’élévation à une 
puissance. 


Résultats avec un PC-1211 


Nombre Durée maximale 


ISN<2 047 


2 047 <N <1 373 653 
1373 653 N <10'° 


très défavorable, c’est-à-dire en utilisant 
un PC-1211, on a les résultats ci-dessus. 

Il est vraisemblable que pour la plu- 
part des machines équipées d’un proces- 
seur 8 bits, les temps sont à diviser par 
10 ou davantage. 


Pierre Ladislas GEDO 
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TRS-80 


DU DÉCIMAL A Li 


Lorsque l’on pratique |’ Assem- 
bleur, les résultats parfois cocas- 
ses que l’on obtient et la mise au point 
des fonctions USR exigent de fréquen- 
tes incursions en mémoire centrale. 


ue. Cela est facile sur les TRS-80 qui dis- 
posent de DEBUG, et encore plus sous 
NewDos où il suffit de taper simulta- 


nément 123. Mais cela, à condition de 
connaître l’adresse Hexadécimale où 


l’on veut se rendre. 
Malheureusement, si l'instruction 
600 Basic ‘‘&Hxxxx’”” permet la conversion 


hexadécimal/décimal, aucune instruc- 


K ENE Z un programme e t Ô tez-en très tion ne propose la conversion inverse. 
soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous êtes certain HEXAPECIMAL 


de n’en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces. Dans les A 
pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier, Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices. Même s'il ne s’agit pas 

de votre machine, 

vous trouverez souvent 
des idées à reprendre. 


DÉCiMAL. De 


Voici donc un sous-programme 
Basic très simple qui peut être systé- 
matiquement ajouté à la fin des pro- 
grammes faisant appet à des fonctions 
USR. On évite ainsi les recherches 
infructueuses et les erreurs de calcul. 
En outre, le temps de conversion par 
tables est réduit et on peut alors plon- 
ger sans crainte — et peut-être avec 
délices — dans les entrailles de la 
mémoire centrale pour y retrouver des 
erreurs USR. 


Henri VOLLEAU 
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À 


L'HEXADÉCIMAL 


Conversion décimal/hexadécimal 
Programme pour TRS-80 


Auteur 


JEU DU NOMBRE SECRET 


En une seule ligne, le fameux jeu du nombre secret : 
1 R%o = 999:RND : WHILE R% — N : INPUT N:PRINT MIDS(‘‘Court 


BUT! !Long””, 6+5*xSGN (N-R%), 5) : WEND : GOTO 1! 


Henri Volleau 


Copyright LIST et l’auteur 


15000 
15048 
158050 
15860 
15070 
15080 
15098 
15100 
15110 
15128 
15130 
15140 
15150 
15155 
15169 


INPUT"Valeur entiere ou donnee par VARPTR"3; XD! 

IF XD!'<@ THEN XD'=65536+XD! 

GX=FIX(XD!/256) :RX=XD!'-256*0% 

NX(1)=FIX(Q%/16) :NX(2)=Q2-16#N% (1) 

NZ (3) =FIX(RL/16) :NX (4) =RX-16#NX (3) 

UD$="" 

FOR I%=1 TO 4 

IF NZCIX)<18 THEN UD$=UD#$+RIGHTS$ (STR$ (NZX(I%)),1) : GOTO 1512@ 
UD#=UD$+CHR$ (ASC (RIGHTS (STRS$ (NX (I4)),1))+17) 

NEXT 1% 
UD$=UD$+"H" 
PRINT UD$ 
RETURN 

‘NOTA : 

‘Les suffixes ! 


% $ ont ete utilises de facon à eviter 


que des DEF.. eventuelles dans votre programme ne perturbent 
les resultats. 


Lorsqu'on éteint le Canon X:-07, 
le jour et l’heure sont écrits en 


début 


mémoire vive (guide de l’utilisateur, 
page 114). Cette opération est évidem- 


CANON X-07 


MESURER 
LE TEMPS D'UTILISATION 


Taille mémoire 


Pierre BARNOUIN 


ment liée à la gestion des cartes de 
mémoire, dont elle permet de 
contrôler les éventuels changements. 
Les valeurs sont accessibles par PEEK 
aux adresses correspondantes (voir le 
tableau des adresses ci-dessous, pour 
chaque configuration). Grâce à elles, 
il va être possible de déterminer le 
temps d'utilisation du Canon X-07. 

On peut envisager, par exemple, de 
mesurer ce temps (interrupteur sur 
ON) durant une période déterminée. 
Le principe est assez simple. À chaque 
mise en route, l’heure est mémorisée 
(sous forme heures-minutes) après le 
calcul de la durée de la précédente uti- 
lisation et son cumul avec la durée 


Tableau des adresses 
pour chaque configuration 


20 Ko 


Heure 
Minute 
Jour 


et en fin de la zone des fichiers 


Programme 1 
Initialisation 


100 
110 
120 
130 
140 


Programme 2 
Sauvegarde 


(ici, 
5 
10 
15 
20 


N° 12- 


INIT #1, TEMUTI”,25, T°? 
PRINT#1,MIDS(DATES,4,5) 
PRINT#1I,MIDS(TIMES, 1,2) 
PRINT#1,MIDS(TIMES,4,2) 
PRINT#1,0 


Programme 5 
Exploitation 
INIT #1, 'TEMUTI”,,T'':INPUT #1,AS:PRINTAS 
INPUT #1,AS:INPUT#1,AS 

INPUT #1,V:PRINT‘Temps utilise (mn) :””,V 


50 
35 
60 


avec une configuration de 24 Ko) 

INIT #1, TEMUTI”,,ST':INPUT#1,AS:PRINT#I,A$ 

INPUT#1,AS$:T = PEEK(24569) - VAL(AS):INPUT #1,AS$:T = Tx60 + PEEK 
(24570) - VAL(AS) 

INPUT #i,V:V = V +T:AS$=TIMES:PRINT #1,LEFTS(AS$,2) 

PRINT #1,MIDS$(AS$,4,2): PRINT #1,V 
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20473 
20474 
20472 


totale. La durée est donnée par la 
formule : 

T = (H2 — HI) x 60 + (M2 - Mi) 
où H2 et M2 représentent les heures 
et minutes à l'extinction, stockées 
automatiquement et récupérées par 
PEEK; Hi et M1 sont les heures et 
minutes à la mise en route, stockées 
par programme dans un fichier 
mémoire vive et relues la fois suivante. 


Trois programmes sont nécessaires 
pour une telle application. Le premier 
(programme 1) crée et initialise le 
fichier mémoire vive qui contiendra la 
date de début du suivi, l’heure de mise 
en route et le total des temps d’utili- 
sation (de valeur nulle au départ). Le 
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deuxième programme est consacré 
à l’introduction et à la sauvegarde en 
fichier du programme de mise à jour 
du cumul. Pour un suivi plus automa- 
tique, il suffit de préparer STARTS$ 
avec RUN et le nom du programme : 
STARTS = ‘RUN’ + CHRS$(34) + 
“NOM PGM” + CHRS(13). Ne pas 
oublier OFFI pour valider STARTS$. 


Le programme 3, enfin, exploite les 
informations. Il affiche la date, et la 
durée d’utilisation depuis cette date. 
Pour être plus complet, il est possible 
d’ajouter un compteur du nombre de 
mises en route. 


Il faut noter que le passage au jour 
suivant (minuit) provoque une erreur 
si la machine fonctionne. Ce problème 
assez mineur, est résolu en tenant 
compte du jour qui est aussi sauve- 
gardé automatiquement, dans l’octet 
précédant l’heure. 


Laurent GRAS 


PROGRAMME 
SOUS 
LES VERROUS 


Un programme n’est jamais trop 

protégé. Que ce soit contre les 
effets d’un STOP indésirable, ou con- 
tre la copie d’une liste personnelle, il 
vaut mieux le rendre inaccessible. Le 
programme Basic Autorun verrouil- 
leur remplit sa tâche en améliorant 
aussi le chargement du programme 
auquel il s’applique. Il faut prendre 
soin de le sauver avant de l’exécuter. 
Les lignes de DATA représentent deux 
routines en langage-machine dont les 
fichiers-sources sont appelés PROG1 
et PROG2. 


On place la disquette contenant le 
programme à verrouiller et on tape 
RUN. II reste à introduire son nom 
ainsi que celui de la version verrouil- 
lée qui sera sauvée sur le même sup- 
port. Il faut donc lui choisir un nom 
différent. Autorun chargera alors le 
programme et sauvera dans la foulée 
(la bordure de l’écran passant du 
rouge au noir) la version verrouillée. 
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100 
110 
120 
130 
140 
200 
,210 
220 
230 
240 
250 
255 
256 
2527 
260 
270 
275 
280 
290 
300 
800 
810 
620 
700 
910 
920 
992 
99s 
997 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1060 DATA 157,60,3,202,16,250,169, 167 
1090 
1092 : 
1095 REM ###### DATA PROG 2 #34 
1097 
2000 DATA 169,0,141,33,208,169,2,141 
2010 
2020 DATA 166,255,173,45,192,162,46 
2030 
2040 DATA 213,255,142,43,192,140,44 
2050 
2060 DATA 77,32,68,85,32,80,82,79,71 

2070 DATA 82,65,77,77,69,0,78,79,77 

2080 DATA 32,68,85,32,80,82,79,71,82 

2090 DATA 65,77,77,69,169,0,141,32,208 

2100 DATA 149,2,162,8,160,1,32,186,2535 

2110 DATA 173,62,192,162,63,160,192 

2120 DATA 32,189,255,169,0,133,251,169 

2130 DATA 3,133,252,169,251,174,43,192 

2140 DATA 172,44,192,32,216,255,169 

2150 DATA 131,141,2,3%,169,164,141,3 

2160 DATA 3,96 

3000 : 

3010 DANS LES ’PRINT', LES CARACTERES DE CONTROLE SONT TRANSFORMES : 
3020 CD = CURSEUR DROITE 

3030 CL = CURSEUR GAUCHE 

3040 CD = CURSEUR BAS 

3050 CU = CURSEUR HAUT 

3060 
3070 HOM = HOME 

3075 SPC = BARRE ESPACE # 
3080 LES AUTRES CODES SONT CEUX DU CLAVIER 

3090 QUAND PLUSIEURS IDENTIQUES SE SUIVENT,LEUR QUANTITE PRECEDE LE CODE 


Autorun verrouilleur 

Programme pour Commodore 64 
Auteur Hervé Le Marchand 
Copyright LIST et l’auteur 


POKES3281,5S:POKES3280, 14: PRINT" (CLS) (CD) (15SPC) (REV) (BLK) AUTORUN" 
FOR 1#828 TO 9O6:READX:S1=S1+X:POKEI,X:NEXT:REM LECTURE DATA PROG1 
IF Si <> 9609 THEN PRINT®* (REV) (CD)ERREUR DATA PROG1":STOP 

FOR 1= 49152 TO 49284:READX:S52=S2+X:POKEI,X:NEXT:REM LECTURE DATA PROG2 
IF S2 <> 14436 THEN PRINT" (REV) (CD)ERREUR DATA PROG2*:STOP 

PRINT ® (HOM) (4CD) >NOM DU PROGRAMME BASIC(2SPC)"}:INPUT N1s 

NS=N1S: X#49197: GOSUB 600 - 
IF F<2>0 GOTO 200 

PRINT" (HOM) (6CD) >NOM À DONNER MAINTENANT "F:INPUT N28$ 

NS=N2%: X=49214:GOSUB 800 

1F F<>0 GOTO 230 

REM HEIN 

REM MESSAGE À ARRANGER A VOTRE GOUT 

REM HHHIHHHHHHHHHHHHHHHHHHHHHHHE 

PRINT®* (CLS) (10CD) (WHT) (9SPC)- VEUILLEZ PATIENTER -"* 
PRINT" (2CD) (9SPC)JE CHARGE *“JN28J" .." 

REM HN DD D DEEE EE 

POKE770,60:POKE771,3:REM MODIFIE LE VECTEUR ’WARM START’ 

SYS 49152: REM PASSE LE CONTROLE A PROG2 

PRINT" (WHT) (REV) OPERATION TERMINEE®* : END 

REM HE ME D IE 

REM TRANSMET LES NOMS A PROG2 

REM HE ENS E DE DEDD STE 

F=O:LeLEN(N#):1IF L=O OR L)>16 THEN F=1:RETURN 

POKEX,L:FORI=1TOL POKEX+1,ASC(MIDS(NS,I,1)):NEXT 

RETURN 


REM ###X## DATA PROG 1 ###### 


DATA 169,55,133,1,169,93,32,210 
DATA 255,162,5,189,15,293,157,3 
DATA 128,202,208,247,169,226,141 
DATA 0,128,169,252,141,1,128,1469 
DATA 94,141,2,128,169,254,141,3 
DATA 128,169,131,141,2,3,169,164 
DATA 141,3,3,169,225,141,40,3,169 
DATA 246,141,41,3,169,0,162,63 


DATA 72,169,173,72,76,89,166 


DATA 32,208,169,2,162,8,160,1,32 
DATA 160,192,32,189,255,169,0,32 


DATA 192,76,79,192,0,0,0,78,79 


CLS = CLR/HOME 


READY. 


Le texte affiché pendant cette opéra- 
tion sera le même que pendant les 
chargements ultérieurs de la version 
autorun. Il est établi aux lignes 260 et 
270, il peut donc être modifié à 
volonté. Pour charger et exécuter la 
nouvelle version, il suffit de taper 
LOAD<NOM”,5,1 puis RETURN. 


Le répertoire s’est alors enrichi de 
six blocs. La zone d’adresses 768-2048 
a été ajoutée au programme, elle com- 


prend l’écran (adresses 1024-2039). Si 
le C.64 n’est pas trop ancien, c’est-à- 
dire si la carte couleur n’est pas initia- 
lisée avec la couleur du fond mais avec 
celle du curseur, elle permet d’afficher 
un texte pendant le chargement. Mais 
cette zone contient surtout les princi- 
paux vecteurs du système d’exploita- 
tion, ceux qui pointent vers les routi- 
nes principales et qui sont consultés 
régulièrement pour la saisie d’un 
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162 


PROGI 


Désassemblage des données (lignes 1000 à 1090 


du programme Autorun) 


30 033C ! CODE ASSENBLE PAR MIKRO 

40 035€ ! PROG1 - ROUTINE AUTORUN 

50 033€ ©! HERVE LE MARCHAMB - 1984 

300 033C 42828 ! SE LOGE DANS LE TAMPON CASSETTE 

302 0330 A937 ENTREE LDA #55 

504 03JE 8501 STA 501 ! REMET LES RON BASIC EN PLACE. 
540 0340 A95D LDA 893 

330 0342 20D2FF JSR SFFD2 ! EFFACE L'ECRAN. 

360 0345 A205 LDX 45 ! EMNPECHE LES RESET ‘HARD' 
370 0347 BBOFFD RESET LDA $FDOF,X EN PLACANT *CBM80° 

380 034A 90380 STA $8003,X 1 EN 58004 

390 034 CA DEX 

600 O34E DOF7 BNE RESET 

610 0350 A9E2 LDA H(SFCE2 ! BOUCLE SANS FIN 

620 0332 8D0080 STA 58000 ! SI RESET "HARD' 

623 0353 A9FC LDA #)$FCE2 

626 0337 8D0180 STA $8001 

630 O3SA A95E LDA S($FESE 

635 035C 8D0280 STA 58002 

640 O33F A9FE LDA WSFESE 

660 0361 820380 STA 98003 

670 0364 A983 LDA 9($5A483 ! RESTAURE "VARN START’ 
680 0344 820203 STA 770 

690 0369 A9A4 LDA #)SA483 

695 0363 820303 STA 771 

200 O36E A9E! LDA #($F6E1 ! INHIBE STOP/RESTORE 

710 0370 82803 STA 808 

720 0373 A9F6 LDA #2$F6E1 

730 0373 8D2903 STA 809 

B00 0378 A900 LoA #0 EN BON INDIEN RUSE ON EFFACE 


810 O37A A23F 

820 037€ 9B3C03 CACHE 
830 037F CA 

840 0380 10FA 

850 0382 A9A7 AUX 
852 0384 48 

854 0385 AJAD 

856 0387 48 

860 0388 4C39A6 


LDX ACACHE-ENTREE-1 
STA ENTREE, X 

DEX 

BPL CACHE 

LDA 8547 

PHA 

LDA #8AD 

PHA 

JMP SA659 


SES TRACES BE PAS … 
. DE PROGRAMMES 


ENPILE L'ADRESSE SA7AE 


AJUSTE LES POINTEURS ET SAUTE EN SA7AE 


caractère, son affichage, l’exécution 
d’une commande, etc. 


A titre d'illustration, on peut aller 
poker en mode direct dans l’une des 
adresses 770, 788, 804, 806, 808, Les 
conséquences ne se font pas attendre. 
Dans la routine Autorun, le vecteur 
warm start du Basic a été choisi à 
l'adresse 770-771. D’autres choix sont 
possibles. Pendant le chargement, le 
programme va recouvrir cette zone et 
modifier ce vecteur. Le système ira 
alors le consulter et sera dirigé vers 
PROG, routine d’initialisation logée 
dans le tampon cassette entre les adres- 
ses 828 et 907. Son rôle consiste à ver- 
rouiller toutes les entrées pirates et à 
exécuter le programme résident. 


Puisque le programme Basic Auto- 
run sera détruit par celui qu’il protège, 
lors de son chargement, il passe le con- 
trôle à PROG2 logé en 49152. Hors 


PROBLÈME 


Voulant savoir pourquoi il lui 

fallait perdre autant de temps 
dans une file d’attente, devant un 
guichet de poste ou une « gondole » 
de supermarché, le Dr Jivaro décida 
de poser la question à son ordina- 
teur, un Epson PX-8. Pour ce faire, 
il établit un programme de simula- 
tion d’attente. 

Il a décomposé le problème 
comme suit : 

1. Choix d’un paramètre « effica- 
cité/affluence », entre 0 et 1. 

2. Calcul de simulation de file 
d’attente. 

3. Affichage du résultat. 

4. Répétition un grand nombre de 
fois des phases 2 et 3. 

Toujours aussi laconique, le D" 
Jivaro a écrit le tout en quatre ins- 
tructions de Basic standard, totali- 
sant moins de 50 octets. Si ce pro- 
gramme de simulation a l’air d’une 
caricature un peu simpliste à côté de 
ceux qu’élaborent habituellement les 
statisticiens, il leur est tout à fait 
comparable au niveau des résultats. 
Il montre clairement, par exemple, 
que même avec un coefficient « effi- 
cacité/affluence » théoriquement 
équilibré de 0.5, on risque d’obser- 
ver des files d’attente de plusieurs 
dizaines de personnes. Un résultat 
médiocrement encourageant, mais 
amplement confirmé par l’expé- 
rience, et par nombre d’auteurs 
sérieux. 

Une dernière indication : éviter le 
piège des files négatives, sans tom- 
ber dans celui d’une inversion abu- 
sive de leur sens de variation. 


(Voir la solution, page 71). 


Pierre BARNOUIN 


d’atteinte du Basic, ce dernier se limite 
aux opérations de chargement et de 
Sauvegarde (voir son code-source inti- 
tulé PROGI1, et PROGZ2 page suivante). 

Sans Autorun et un programme à 
faire tourner, on peut ajouter POKE 
808,225 comme première ligne du pro- 
gramme avant de faire RUN. C’est 
toujours mieux que rien. 
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> Autorun est une protection logicielle 
uniquement. Une vraie protection doit 
s'intéresser aussi au « blindage » du 
support matériel (la disquette), mais 
c’est là un problème infiniment plus 


complexe. 


PROG2 


Hervé LE MARCHAND 


Désassemblage des données {lignes 2000 à 2160 
du programme Autorun) 


25 C000 

30 Co00 

40 c000 

405 C000 

410 C000 

420 C000 

430 C000 

440 C000 

450 CO00 A900 
460 COC2 8B21D0 
470 C00S A902 
480 C007 8D2020 
310 COOA A902 
320 CO0C A208 
530 CO0E A001 
340 CO10 20BAFF 
350 CO13 AB2BCO 
360 CO16 A22E 
370 CO18 AOCO 
373 COIA 20BDFF 
580 CO1D A900 
390 COIF 20D5FF 
592 CO22 8E28C0 
394 C025 8C2CC0 
600 C028 4C4FC0 
605 CO2B 0000 
610 CO2D 00 


F=$C000 
! ASSENBLEUR MIKRO 
! PROG2 - ROUTINE DE CHARGEMENT ET SAUVEGARRE 


DEBUT = 90300 } DEBUT DE L'ANORCE 
SETLFS = SFFIA 
SETNAN = FF 
LOAD = SFFDS 
SAVE = SFFD8 
LA ! ECRAN NOIR 
STA 82021 
LOA 82 ! BORDURE ROUGE 
STA 98020 
LIA 82 ! CANAL 2 
LX #8 ! LECTEUR DISQUETTES 
LDY #1 ! CHARGEMENT ABSOLU 
ISR SETLFS 
LDA LONG! ! LONGUEUR DU TITRE 
LDX BCNON! ADRESSE DU TITRE 
LDY #)N0N) 
JSR SETAAN 
LDA 30 ! LOAB { 1 POUR VERIFY } 
JSR LOAD ! CHARGE PROGRAMME BASIC 
STX FIN ! RANGE L'ABRESSE DE FIN 
STY FIM#1 
JNP SAUVE ! SAUVE ANORCE+PROBRANME BASIC 
FIN vor 0 
LONG! BYT 0 


620 CO2E 4E4F4D NOM! 
630 COSE 00 LONG2 
640 CO3F 4E4F4R NOM2 
642 CO4F A900 SAUVE 
644 CO51 8D20D0 

650 CO54 A902 

632 COS6 A208 

654 C038 A001 

660 COSA 20BAFF 

670 COSD ADSECO 

680 C060 A23F 

690 CO62 AOCO 

700 CO64 20BDFF 

710 CO67 A900 

720 C069 85FB 

730 CO6B A903 

740 CO6B 83FC 

730 CO6F A9FS 

760 CO71 AE2BCO 

770 C0?4 AC2CCO 

775 C077 2039FF 

780 CO7A A983 

790 C07C 8D0203 

800 C07F AYA4 

810 Co81 820303 

820 C084 60 
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TXT "NOM DU PROGRAMME * 
BYT 0 

TXT NON BU PROGRAMME" 
LDA #0 

STA 52020 

LDA 92 

UBX 88 

ny 

JSR SETLFS 

LDA LONG2 

LEX #CNON2 

LDY #)NON2 

JSR SETHAN 

LDA B(DEBUT 

STA $F3 

LA #)DEBUT 

STA #FC 

LDA 84F3 

LDX FIN 

LDY FIN# 

JSR SAVE 

LIA #(SA483 

STA 770 

LDA #)SA483 

STA 771 

RTS 


! BORDURE NOIRE 


! POINTE VERS *BEBUT' 


! REMEY LE VECTEUR *WARM START’ 


ENREGISTRER 
UNE PAGE ÉCRAN 


Les Thomson, MOS, TO7 et 

TO7/70, sont pourvus d’une 
mémoire écran adressable directement 
depuis le Basic. Cependant, cette 
mémoire se trouve partagée en deux par- 
ties contenant respectivement l’état des 
points (allumés ou éteints) et leur cou- 
leur. Ce qui est étrange, c’est que ces 
deux parties se trouvent au même 
endroit. Voilà pourquoi il faut opérer en 
deux étapes pour enregistrer un écran sur 
un support externe (cassette ou dis- 
quette) : on enregistre d’abord l’état des 
points, puis les couleurs correspondan- 
tes (bien entendu, on peut inverser l’or- 
dre de ces étapes). L’écran se situe entre 
les adresses 0 et $1F3F sur MOS, 54000 
et $5F3F sur TO7 et TO7/70. 


L'information permettant d’avoir 
accès aux points ou aux couleurs se 
trouve sur le bit 0 de l’adresse $A7CO0 sur 
MOS ($E7C3 sur TO7 ou TO7/70) : le 
bit est à 1 pour l’adressage aux points, 
à 0 pour celui aux couleurs. Sur MOS, 
l'enregistrement se fera donc par : 
POKE &HA7CO,PEEK(&HA7CO0) 

OR I:SAVEM ‘‘ECRANI’’,0, 

&H1F3F,0 
POKE&HA7C0,PEEK(&HA7CO)AND 

254: SAVEM ‘‘ECRAN2’’,0,&H1 

F3F,0 
Et sur TO7 ou TO7/70 : 

POKE &HE7C3,PEEK(&HE7C3) OR 
I:SAVEM ‘‘ECRANI’’,&H4000, 
&H5F3F,0 

POKE &HE7C3,PEEK(&HE7C3) 
AND 254:SAVEM ‘‘ECRAN2’’, 
&H4000,&H5F3F,0 


Le rappel des enregistrements se fait 
selon le même principe, en remplaçant 
les SAVEM ‘ECRANI’”’.. par des 
LOADM ‘‘”’. 


Enfin, on peut limiter l’enregistrement 
à une partie de l’écran. Par exemple, les 
lignes étant comptées à partir de zéro, si 
l’on veut ne retenir que celles comprises 
entre LI et L2, on remplace l’adresse de 
début par 40+L1, et l’adresse de fin par 
40+L2 sur MOS. Sur TO7 ou TO7/70. 
Ces adresses devront être remplacées, 
respectivement, par 40*L1 + &H4000 et 
40+L2 + &H4000. 
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DESSINER DEPUIS UN FICHIER 


Voici un programme tout simple 

qui montre comment on s’y 
prend pour dessiner un objet en haute 
résolution sur Dai, depuis un fichier 
en DATA. En effet, il est tout à fait 
inutile de multiplier les instructions de 
dessin : une commande unique 
DRAW (qui trace un segment de 
droite, spécifié par ses coordonnées) 
suffit, à condition que le programme 
aille chercher dans le fichier en DATA 
les abscisses et ordonnées adéquates. 
Ainsi, le dessin de la voiture (ci-contre) 
provient d’un programme Basic qui 
sait rester de dimensions modestes. Le 
plus fastidieux est encore l’encodage 
des coordonnées. 


Ï1 faut partir d’un document, le qua- 
driller (ou superposer du calque milli- 
métré), tracer le « fil de fer » qui don- 
nera la forme finale. Ensuite, on écrit 


Dessiner depuis un fichier 
Programme pour Dai 
Auteurs Christophe et Etienne Chantraine 
Copyright LIST et les auteurs 

MODE 6:COLORG 15 © @ © 

MODE 6 


READ X0,YG:1F X4=-1002 THEN 60 
READ X1,Y1:1F X1=@ THEN 30 


L'exécution d'un programme Basic 


aux dimensions modestes 


directement en DATA les coordonnées 
de chaque vecteur, sous la forme x, y 


DRAW X0G,Y@ X1,Y1 S5:X@=X1:Y@=Y1:GOTO 49 


GOTO 60 


DATA 152,70,155,70,166,76,172,90,172,100,169,109 
DATA 160,113,154,110,146,105,141,94,140,85,142,76 
DATA 152,69,141,72,135,77,153,85,133,95,142,110 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


155,117,165,121,174,118,178,105,174,953,172,95 
174,93,257,117,269,132,277,134,280,127,279,117 
275,114,270,114,267,121,269,132,271,142,272,152 
269,158,184,139,182,142,202,178,262,182,293, 162 
293,164,291,164,293,162,294,148,297,148,297,141 
287,138,297,145,285,146,285,138,277,134 
281,136,284,127,280,111,274,108,270,108,264,114 
262,123,257,117,259,112,265,109,270,108,0,@ 
297,141,2B4,127,286,137,0,0 


DATA 154,78,160,80,165,87,165,96,163,102,159,105 

DATA 150,99,147,90,149,81,154,78,0,0 

DATA 169,109,155,115,149,114,0,0,297,148,287,145,0,9 

DATA 291,148,291,157,0,0,174,118,294,148,0,0,291,153,293,153,0,0 
DATA 176,97,260,122,0,0,184,139,186,131,186,121,184,99,0,0 

DATA 227,180,233,150,235,143,235,132,232,113,0,0 

DATA 189,141,192,143,199,143,199,147,192,147,192,145 

DATA 189,143,0,0,199,152,190,145,0,0 

DATA 253,181,269,163,269,158,281,161,284,167,269,163,0,0 

DATA 261,173,272,175,0,0,258,174,260,158,268,159,268,162,258,174,0,0 
DATA 239,178,234,152,258,157,256,177,253,180,239,178,0,0 

DATA 227,178,205,177,184,140,230,151,227,178,0,0 

DATA 295,157,115,114,115,118,180,142,200f 179,202,178 

DATA 204,179,154,182,210,187,262,182,0,@ 

DATA 198,178,178,143,113,154,154,182,195,177,177,144,116,155,154,182,0,0 
DATA 174,182,190,198,0,0,140,149,129,163,130,163,141,148,0,0 

DATA 133,95,129,84,109,90,106,102,139,108,140,110 

DATA 109,105,51,126,50,129,109,109,113,118,56,137,113,154,0,0 

DATA 108,152,167,141,8,7,177,143,109,119,0,0 

DATA 107,114,111,111,120,115,121,107,0,@ 

DATA 115,114,109,105,109,109,0,0,109,119,105,110,106,107,0,0 

DATA 96,122,93,114,94,111,0,0,66,133,61,125,61,123,0,0 

DATA 58,136,52,128,52,126,0,0,56,137,50,129,0,@ 

DATA 53,132,55,132,0,0,109,90,50,116,47,125,51,126,0,0 

DATA 47,125,106,102,0,0,60,112,63,107,106,88,103,93,0,0 

DATA 57,113,63,105,110,85,103,92,0,0,110,85,126,86,0,0 

DATA 67,103,67,101,101,86,103,87,0,0,228,141,228,139,232,140,231,142,0,0 
DATA 233,138,233,130,0,0,264,150,264,148,268,149,268,151,0,0,1000,0 
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(coordonnées du début du segment), 
x1, yI1 (coordonnées de sa fin), et ainsi 
de suite. Point n’est besoin de comp- 
ter les DATA.Une séquence spéciale 
est placée en fin de fichier (0,0,1000,0). 
Sa lecture termine le programme. Ce 
système permet de reprendre tout ou 
partie du dessin, d’ajouter des détails, 
d’en retrancher, sans toucher au pro- 
gramme d’exécution. La ligne 50 
effectue le tracé du dessin. 


Les segments de droite s’enchaînent 
de façon continue : après un tracé, les 
coordonnées de fin de segment devien- 
nent celles du début du segment sui- 
vant (X0O=X1:Y0=VYI1). La séquence 
0,0 signale la fin d’une partie du des- 
sin (ligne 40). Le saut en ligne 30 per- 
met de charger les coordonnées de 
départ du détail suivant. 


Avec ce principe simple, il est pos- 
sible de représenter toute une série 
d’objets, au prix d’un travail d’écri- 
ture de DATA plus ou moins fasti- 
dieux. On peut se divertir aussi, en 
appliquant un traitement à ces DATA, 
juste avant leur utilisation en ligne 50. 
Par exemple, 45 X1 = X1+RND(4): 
Y1=YI+RND(4). En essayant plu- 
sieurs combinaisons aléatoires de ce 
genre, on obtient des métamorphoses 
souvent amusantes, parfois artisti- 
ques. Qui sait, peut-être est-ce le 
moyen d’explorer le continent inconnu 
de l’art non-figuratif informatisé ! 


Christophe et Etienne CHANTRAINE 
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 CANONXO7 


INTERDIRE L'ACCÈS 


AUX PROGRAMMES CONFIDENTIELS 


Même dans le Canon X-07, cer- 
tains programmes peuvent pré- 
senter un caractère confidentiel. Si tel 
est le cas, il est d’usage de les proté- 


ger par un mot de passe. Le Basic du 
X-07 permet de l’écrire facilement, 
mais il est à la merci d’un break inop- 
portun. Il est donc plus sûr d’écrire 


Programme de chargement 
5 DIM 4%(41):CLS 


1@ DATA CD,98,C5,2%1,0,0,DD,24,C9,2%, DD, 7E 
129557323703 FE FFE EC DR, F1,BA, 

20 DATA S,BP,Z0,EE,18,E8,5A, DD, 23; DD; 7E) 
29,FE,FF, 20, E7, C9, 15D5 

30 V=B:FORI=ITO4 1: READAS:AZL{I)=VAL("&H"+ 
AT): VEV+AACT)INEXTI 

6@ READAS!IFAS<S:HEXS$ (V) THENPRINT'ERREUR 
DANS LES DATAS “:END 

108 INIT#1,"CODE",48 

11@ AD=PEEK(714)#2S6+PEEK(713) 

120 FORI=1TO41:POKE(I-1+AD),AZCI):NEXTI 
1939 PRINT'CHARGEMENT EFFECTUE" 


Changement de code d’accès (Ncode) 
1Q INIT#1,"CODE":CLS 


2@ AD=PEEK(714)#256+PEEK(713)+40 

30 INPUT "NOUVEAU CODE 1"3;C#:C#$=CS+CHRS# 
253) :ALEN(CS$) : IFAYSTHENA=S5 

4@ FORU=1TOA:POKECAD+U),ASC(MID#(CS$,U, 1) 
)=NEXTU 

50 KEV$(1)="OFFRUN"+CHRS$(34)+"OFF"+CHRS( 
34)+CHR$(13) 


Programme d’arrêt du X-07 (Off) 
200 INIT#1i,"CODE":AD=PEEK(714)x256+PEEK( 


713) 
219 CLS:PRINT'VOTRE MOT DE PASSE :"3;:EXE 
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une routine en langage-machine. 


Celle qui est proposée ici (dans le 
Programme de chargement) n’occupe 
qu’une cinquantaine d’octets. Elle est 
placée dans un fichier dont l’adresse 
pourra varier (il faut donc qu’elle soit 
relogeable et que l’adresse du fichier 
soit connue). Ainsi, son utilisation sera 
plus souple et on pourra faire varier 
la dimension de la mémoire fichier. 
Comme cette routine en langage- 
machine est courte, les codes sont pla- 
cés dans des lignes de DATA dont la 
somme servira de vérification. Il suf- 
fit donc de rentrer au clavier le pro- 
gramme de chargement et de l’exécu- 
ter. Après l’affichage du message 
« CHARGEMENT EFFECTUE », 
on pourra l’effacer par un new dans 
le programme. 


Les deux routines Basic, Pro- 
gramme d’arrêt du X-07 (Off) et 
Changement de code d’accès (Ncode), 
permettent respectivement de lancer 
lPexécution de la routine langage- 
machine et de changer de mot de 
passe. Elles sont sauvegardées en 
mémoire fichier. 

Une fois le mot de passe introduit 
grâce à Ncode, l’appui sur F1 met le 
X-07 en sommeil, et en sécurité ! Si 
l’on appuie maintenant sur ON, le mes- 
sage « VOTRE MOT DE PASSE : » 
s’affiche et l’on dispose d’environ qua- 
tre secondes pour le rentrer. Passé ce 
délai, le X-07 retourne à sor sommeil. 


La longueur des mots est ainsi limi- 
tée à quatre lettres, attention de ne pas 
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les oublier. Le seul recours alors, serait 
un All Reset dont les effets amnésiques 
sont connus ! 


Pascal BAUBE 


APPLE II 


DISQUE VIRTUEL 
SOUS PRODOS 


Le nouveau système d’exploita- 

tion des disquettes (DOS) d’Ap- 
ple, baptisé Prodos, encore peu utilisé 
par les programmeurs Applesoft est 
pourtant très intéressant à plus d’un 
titre. On pourrait citer, entre autres, 
le gain de vitesse de chargement, la 
gestion arborescente du directory, la 
présence de commandes plus évoluées, 
la possibilité de gérer les 64 ko de 
mémoire vive supplémentaires, inac- 
cessibles par Basic, sous forme d’un 
disque virtuel (c’est le sujet de ce qui 
suit). 

En effet, ceux qui déploraient, 
ayant des Apple II « gonflés » à 128 
ko, de ne pouvoir utiliser cette 
mémoire vive (RAM), vont avoir l’oc- 
casion de se réjouir. Ils ont mainte- 
nant trois lecteurs (drives) à leur 
disposition ! 

Tout d’abord, examinons, sommai- 
rement, la manière de travailler avec 
Prodos. Les disquettes ont un nom 
(nom de volume), déterminé au for- 
matage. Les commandes disques sont 
relatives à ce nom. Par exemple, si 
nous avons dans le lecteur 1, le volume 
appelé DISK1, et dans le lecteur 2, le 
volume DISK2 : 


! 
VoiL À LES NouVEUES 
__5 DISQUETTES 
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Exemple de disque virtuel 
en mémoire vive : 
une animation graphique 


4 REM 
45 RE 
50 X = 6:Y1 = BiX1 = BiX2 = B:Y2 = B::TE = 8 


68 PRINT CHR$ (21): HOME : INPUT "VITESSE DE DEFILEMENT (8... 


ANIMATION GRAPHIQUE . DISQUE VIRTUEL EN RAM SOUS PRODOS 


908) ? “;TE: HGR2 : HCOLOR= 3 


98 D$ = CHRS (4):SA$ = D$ + "BSAVE/RAM/COURBE." :LD$ = D$ + "BLOAD/RAM/COURBE ." :ADS = * ,AS4088 ,ESSFFF* 
188 GOSUB 1888: PRINT S4$ + "1" + AD$: GOSUB 2088: PRINT S4$ + "2" + ADS: HGR2 : GOSUB 3908: PRINT SA$ + *3" + AD$ 


NU HGR2 à FOR 1 = 1 T0 3: PRINT LOS + STR$ C1): FOR J = 1 TO TE: NEXT d,1: BOTO 118 

1886 REX TRACE IMAGE HGR 1 "nn 
1188 HPLOT 8,96 TO 279,96: HPLOT 148,191 TO 149,8: RETURN 

2408 RE done tennmnnes TRACE JNAGE HER 2 mme 
2188 FOR X = 25 TO 158 STEP 1: GOSUB 4888 
2208 HPLOT X1,Y1+ HPLOT X2,Y2: NEXT : RETURN 


ee RE manennennnecee TRACE IMAGE HER 3 
3148 FOR X = 25 TO 158 STEP 1: GOSUB 4988 

3248 HPLOT X1,Y1 TO X2,Y2: NEXT : RETURN 

aus RE 

AIN IF X) 68 THENX=X+ 1 


CALCULS ==" nn 


4128 X1 = (X + 128):X2 = 168 - X:Y1 = 188 - (2588 / X):Y2 = 91 + (2588 / X): RETURN 


e CAT/DISKI donne le catalogue de 
la disquette présent dans le lecteur 1 ; 
e CAT/DISK2 idem pour le lecteur 2. 


La «troisième disquette », vir- 
tuelle, porte le nom de RAM. Par 
exemple : SAVE/RAM/PROG sauve 
le programme PROG en mémoire vir- 
tuelle. On peut le vérifier en faisant : 
CAT/RAM ou CATALOG/RAM. 


Les avantages sont bien entendu 
nombreux, le plus évident étant le 
chargement instantané de tout ce qui 
peut être stocké sur ce disque virtuel : 
fichiers, images graphiques, etc. L’in- 


convénient majeur étant que la RAM 
est une mémoire volatile. 


Pour illustrer ces propos, voici un 


petit programme qui permet de dessi- 
ner trois images graphiques, de les sau- 


__— 
Explications du programme 


Ligne 60 : TE règle la vitesse de 
défilement 

Ligne 90 : fixe les variables de com- 
mande du DOS cu 

Ligne 100: appelle le sous- 
programme de tracé de l’image 1, puis 
sauve l’image HGR ainsi créée sur le 
disque virtuel/RAM. Idem pour 2 et 3 

Ligne 110 : rappelle successivement 
les trois images : 

Lignes 1000 à 4120 : tracé d’une 
courbe, à deviner ! 


ver sur disque virtuel, et de les rappe- 
ler successivement afin de créer une 
animation graphique. 


Michel AUBRY 


TRS-80 MODÈLE I 


MODIFICATION DES ZONES 
D'UN FICHIER 


ei C’est seulement à l’usage que 
certaines zones d’un fichier peu- 
vent s’avérer trop étroites. On regrette 
alors de ne pas les avoir prévues suf- 
fisamment grandes. Soit, par exemple, 
un fichier A dont les fiches ont 128 
octets de long et sont divisées en cinq 
zones de 20 octets. On a ainsi : 
‘R°°,1,°°A7”,128 

FIELD1,20 AS Z1$,20 AS 725,20 AS 
Z3$,20 AS Z45,20 AS Z5$ 


Supposons que l’on veuille donner 


à Z3$ la longueur 30. On vérifie 
d’abord que la somme des zones reste 
inférieure à 128. Si cette condition 
n’était pas vérifiée, la dernière zone 
verrait disparaître des caractères dans 
l'opération. 

Pour éviter les erreurs et gagner du 
temps, on globalise les zones qui ne 
sont pas modifiées dans un nouveau 
FIELD : 

FIELD1,40 AS X1$,20 AS X2$,40 AS 
X35$ 
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présent, si le nombre 128 s’avérait j 
insuffisant, il n’y aurait qu’à prévoir MO5 Î 
une longueur adéquate pour TR en | 
déclarant (si l’on ne veut pas aller 

jusqu’à 256) : 

OPEN“R’””’,2, "TR’’,160 (où 160 = 


“D A TOUTE VITESSE 


On peut aussi profiter de l’opération 
pour se débarrasser des fiches mortes. 


ATTENTION 
FICHIER 


À ZONE RETRÈCIÉ 


I suffit de marquer une zone de ces Le délai de répétition du clavier 
fiches. Par exemple, ZI$ par ZZ. La de votre MOS vous semble déme- 
ligne 1060 du programme deviendra : surément long ? Une seule solution : 
1060 GETI,N:IF Z1$ = ‘77 THEN poker, à l’adresse &H2076, une valeur 
1100 inférieure à celle qui s’y trouve à l’ori- 
Ainsi, ces fiches ne se retrouveront gine. Plus la valeur sera faible, plus la 

pas dans TR et elles disparaîtront. répétition du clavier sera rapide. 
Francis GOUDARD Frédéric BLANC 


. | | FA 


On crée un second fichier de transfert, 
sur un autre tampon : 
ER 2 TR", 128 


FIELD2,40 AS Y15,30 AS 29,40 AS FENÊTRES D'ÉCHIQUIER 


On reporte le premier fichier sur le 
second, les écritures de X2$ trouvant 


: | Avec le QL, on représente un 
facil lace dan: Ie - D UE à s 
ons ee Li échiquier en ouvrant autant de Le cœur de la procédure 
1000 OPEN‘R” 1. “A” 128 fenêtres que de cases nécessaires. Il les Ligne 70 : les coordonnées de l’échi- 
ei D à é Le 25 sa gère toutes, la mémoire disponible | quier recentré sont données par th et tv. 
X28,40 ÂS XI © étant alors réduite. Le déplacement des Lignes 80 et 90 : Le fond, la fenêtre 
1020 OPEN‘R” 2 TR” 128 pièces est très simple : la case d’arri- | de l’échiquier et la fenêtre d'entrée des 
te 12 à . vée est allumée par PRINT#ld;pion et | Années sont ouverts. | 
1030 on AS Y1$,30 AS Lignes 140 à 250 : boucle i, ouver- 
Y2$,40 AS Y3$ 


ture des fenêtres-cases, numérotation 


1040 1 =0 des lignes et des colonnes et coloriage 


1050 FORN = 1 TO LOF(1) D des cases. 

1060 GETI,N Re ne be Ligne 150 : calcul de la couleur de la 
AULIEUrF ugustin ATCIA | 

1070 LSETYI$= XI1$:LSETY2$ = ea : case. 


Copyright LIST et l’auteur 
X28:LSETY3$=X3$ 

1080 1[=1+1 

1090 PUT2,I 


1100 NEXT:CLOSE 


Il faut maintenant substituer le 
fichier TR au fichier À, par les deux 
lignes : 

1110 KILL ‘A? 
1120 CMDT",*RENAME TR TO 
A? 

Il ne reste plus qu’à changer le FIELD 
dans le programme initial : 
FIELD1,20 AS Z1$,20 AS 725,30 AS 
Z35,20 AS 745,20 AS ZS$ 


En règle générale, il vaut mieux lais- 
ser une partie de la fiche libre, pour 
permettre soit d’allonger des zones, 
soit d’en ajouter de nouvelles qui ne 
perturbent pas le fichier. On choisira 
de préférence une longueur de fiche 
égale à une fraction entière d’une puis- 
sance de 2, pour rester dans le forma- 
tage initial de la disquette. Dans le cas 


Lignes 160 à 220 : boucle j, ouver- 
ture des fenêtres. 
14 REMark echi au ier 
20 REMark —-- 
Etra] 
aë K 
para] 
LT] 
7@ 
ET 4 
7e bi NE tailler32+4; tailletza+z, this VE WINDOCONW HZ: 512%, 254, @, 2 
1AR FAFER #2:72 INK AsÛLE 
114 FAFER #@@SINE #@ 7: 
LEA RURDER 1:@: BORDER #2: %:4 
15Q windez 
14 FOR ii TO taille 
157 papeit Ci /ZS INT (i/2) ) +26 Ci /SSINT Ci /# ») 
LA FÜR j=i TO taille 
table _muindACistaille+i-j)=uind 
DFEN #wind:scr _F9x2@a2xa \ 
WINDOW Huinds 3@: 0: th+Z+B@ Ci 1) EVIL + TUE Cj 1) 
FAFER #uind:papt 5 #uwuind 
wind=euind+ispap=7-pap 
END FÜR j 
AT #2: Ci1)æ2+tv/10;: th/4 
J AT HZ: 13+taille, itatth/é 
à ENT FÜR i 
& END  DEFine echiquier 


dure ec hiquier (taille) 


nue 
dE AE 


PRINT #2, tailietri- 
PRINT #2: CHARS C(é ren 
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la case de départ est éteinte par 
CLS#12. 

Une telle procédure construit des 
échiquiers de taille variable (de 1 à 10) 
et les recentre automatiquement à 
l’écran. Deux tableaux, table-wind®% 
et jeu, permettent la future intégration 
de la procédure dans un programme. 
Pour la faire tourner, rien de plus sim- 
ple : echiquier 10 ouvre 103 fenêtres. 


Augustin GARCIA 


SOLUTION DU PROBLÈME 
DE LA PAGE 65 


1 INPUT“ O<K <1°:K 


2:N = ABS(N + SGN(RND -K)j: PRINT N;:GOTO 2 


FORTH 


COPIE D'ÉCRAN GRAPHIQUE 


Le but des programmes Forth 

proposés ici est de réaliser une 
copie d’écran graphique d’Hector 
HRX sur une imprimante de type 
GP-50. Les mots Forth employés étant 
standard, l’adaptation du programme 
à d’autres machines est aisée. La ver- 
sion Copiec réalise une copie déformée 
de tout l’écran, la version Copiw, une 


Programme Copiec 


copie conforme à l’écran, mais seule 
une fenêtre de 160 pixels sur 240 est 
prise en compte. 


Dans le programme Copiec, 27 
LEMIT 71 LEM passe l’imprimante 
GP-50 en faible interligne. Le code à 
envoyer est celui correspondant à une 
colonne de huit points verticaux. Pour 
une ligne horizontale, il 
est envoyé 242 fois, et 
pour la hauteur de 
lPécran, 277/8 fois. Le 


2PN OUP IF 1 SWAP @ DO 2x LOOP ELSE 
DROP 1 THEN ; : LEM LEMIT ; 

IMG 27 LEMIT ?1 LEM 9 LEM 242 LEM ; 
COPIEC 27 LEM 48 LEM @ @ 227 DO IMG 
1 242 6 D0 I 8 @ DO OUP 3 PICK I - 
POINT @= NOT IF ROT I 2PN + ROT ROT 
THEN LOOP DROP SWAP LEM © SWAP 
LONP 19 LEM DROP -8 +LOOP ; 


Exemple d'exécution 
de Copiec 


Programme Copiw 


1 171 


@ SWAP LOOP 
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codage binaire des huit 
points (pour les huit 
aiguilles) se fait dans le 
mot 2PN. Le mot IMG 
prépare l’imprimante à 
242 impressions graphi- 
ques. Aucune variable 
n’est utilisée, les infor- 
mations transitent tou- 
tes par la pile. 


: PRE 18 227 168 218 WINDOH ; 

IMPC 27 LEM 71 LEM 1 LEM 64 LEM ; 
: COPIW 27 LEM 48 LEM @ à 227 O0 IMPC 
9 DO I 8 6 00 DUP 3 PICK I - 
POINT @= NOT IF ROT I 2PN + ROT ROT 
THEN LOOP DROP SHARP DUP LEM LEM 
10 LEM DROP -8 +LOOP ; 


Pour d’autres machines, la longueur 
des boucles doit être modifiée en fonc- 
tion de la largeur et de la hauteur en 
pixels de l’écran ; le mot LEMIT doit 
être remplacé par celui qui permet de 
sortir une information sur l’impri- 
mante, et le mot POINT par celui qui 
permet de savoir si un pixel est d’une 
couleur différente de celle du fond. 


Ces programmes peuvent aussi être 
adaptés à une autre imprimante. Dans 
ce cas, il faut remplacer les codes de 
contrôle pour l’impression graphique 
(voir les indications des manuels), et 
si Pimprimante possède une matrice de 
sept aiguilles il faut modifier le pas de 
la boucle externe (il passera de 8 à 7). 


Michel BROCHAND 


TRS 
CAETTR 
AR) 
SZ 
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PROGRAMME PRATIQUE 


GESTION DE BASE 
DE DONNÉES 


# 


CRIT en Basic sur un Epson PX-8,le 
programme Pêle-Mêle se présente comme 


une base de données qui gère de petits fichiers. 


De la gestion des diners pour la maïtresse de 
maison au carnet de rendez-vous des dentistes, ou 
même au dénouement d'une affaire policière, ce 
programme devrait résoudre bien des problèmes. 


Qui a mangé de la charlotte aux 

fraises ? Et, plus généralement, 
qui a déjà mangé quoi ? Ce petit pro- 
blème, surtout préoccupant pour les 
maîtresses de maison qui reçoivent 
beaucoup, sera résolu, comme bien 
d’autres, par Pêle-Mêle, un embryon de 
base de données qui gère autant de petits 
fichiers que vous voulez. Chaque fichier 
peut contenir jusqu’à 240 données, de 
12 caractères au plus, corrélées entre 
elles par un maximum de 255 « liens », 
assemblant jusqu’à quatre données 
chacun. 


Une pression de touche suffit pour 
choisir un fichier. La liste des données, 
sur 40 lignes de 6 colonnes, restera dis- 
ponible en permanence : elle apparaît 
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ou disparaît d’une pression de touche et 
défile à volonté à l’aide des curseurs ver- 
ticaux sans délai d’affichage. 

La touche RETURN ramène sur l’au- 
tre écran virtuel où un MENU (ligne 24, 
en DATA ligne 64) offre cinq options : 
l'option 1 ramène à la liste des données 
(ligne 22), l’option 2 donne les « liens » 
d’une donnée (ligne 26), l’option 3 per- 
met la création (ligne 40) et l’option 4 
la suppression d’un lien (ligne 48). 
Quant à RETURN, il réenregistre s’il y 
a lieu les fichiers sur disque RAM (spé- 
cifique au PX-8) ou cassette et met fin 
au programme (ligne 56). 

En appelant le nom d’une donnée 
(option 2), on voit apparaître toutes cel- 
les qui ont un lien avec elle, Tous les 


détails subalternes sont réglés automa- 
tiquement : un même nom de donnée ne 
s’enregistre qu’une fois dans la liste, la 
suppression d’un lien efface toutes les 


: données sans autre lien que celui-là, les 


trous ainsi créés ne se voient pas à l’af- 
fichage de la liste, et ils se rebouchent 
tout seuls au fur et à mesure de l’intro- 
duction de nouvelles données, etc. 


L’occupation de mémoire est des plus 
raisonnables : 1300 octets environ pour 
le programme et 2 à 4 Ko par fichier, 
dont 1 à 3 Ko en séquentiel, éventuelle- 
ment sur cassette, et 1 Ko seulement en 
sélectif. Mais l’avantage essentiel de ce 
petit programme de gestion de liens est 
sa polyvalence qui lui permet d’entrer 
en compétition avec bien des program- 
mes spécialisés. 


Le menu 


et le dentiste 


Reprenons le cas de la maîtresse de 
maison modèle qui offre par exemple 
deux plats et un dessert mémorables à 
six couples d’invités, au plus, chaque 
fois. Chaque dîner va être représenté 
par trois liens, l’un entre le menu et la 
date, qui sert ici de pivot, les autres 
entre la date et les noms de trois des 
ménages d'invités. 
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Même si elle dispose d’une cinquan- dentiste tape un 4 (suppression de lien), 
taine de bonnes recettes et d’une cen- puis le nom du client. Tous les rendez- 
taine de ménages d’amis, elle pourra vous de celui-ci s’affichent, ce qui per- 
garder sous la main, et en 4 Ko seule- met de les lui confirmer. Et tapant le 
ment, tous les menus et toutes les listes numéro de celui d’aujourd’hui, on l’an- 
d’invités des 85 derniers dîners qu’elle nule avec retour au menu. 
aura offerts. 


Lunpi : KE 
roi : Docmn > 


MERCREDI : 


SEvDi : 


VENDRE pi : Gn 
nas Le 
sement : RTE 


Une date est ensuite convenue pour 
Autre exemple, l’agenda d’un den- un nouveau rendez-vous. Un 2, suivi de 
tiste, devant contenir jusqu’à 250 cette date, affiche tous les rendez-vous 
rendez-vous. Ceux-ci s’étalent sur près déjà fixés pour ce jour-là, ce qui permet 
de deux mois, soit une quarantaine de de convenir d’une heure, et on aurait pu 
jours ouvrables, et ils correspondent, de aussi bien choisir la date en fonction de 
quart d’heure en quart d'heure, à une l’heure. Enfin un 3, le nom du client, 
trentaine de moments de la journée. la date et l’heure convenues suffisent à 
D’autre part, ils n’auront pas été don- enregistrer le nouveau rendez-vous. 
nés à plus de 170 clients différents : 40 
+ 30 + 170 = 240, on peut donc y 
aller. Voyons la chose de plus près. 


Dès qu’un programme fait appel au 
système d’exploitation d’un micro, il est 
difficile de le transporter sur un autre. 
Un patient s’assied sur le fauteuil. Le Bon prétexte pour ne pas nous priver ici 


DEFSTR A-H:DIM A(240) :WIDTH 80,8,40:ON ERROR GOTO 60 

READ E,D:PRINT E:E="A:L"+INPUT$(1)+".DAT":F="A:"+MID$(CE, 4) 

SCREEN , 1,0:OPEN"R",#1,E,255:FIELD#1,255 AS H : 

OPEN"1",#2,F:INPUT#2,G:WHILE EOF(2)=0:L=1L+1:INPUT#2,A(L) 

IF ACL)°:""THEN PRINT TAB(13*xK+1); ACL); :K-(K+1)MOD 6 

WEND:CLOSE#2:FOR 1-1 TO 4:GET#1,1:BCI1)-LEFT$(H,VAL(G)\Y:NEXT 

ON ERROR GOTO O:SCREEN,1:LINE INPUT; A:SCREEN, 0 

CLS:PRINT D:ON VAL(INPUT$(1)) GOTO 22,26,40,48:ON Z GOTO 56:END 

GOSUB 28:LINE INPUT;A:GOTO 24 

GOSUB 38:FOR K-1 TO L:J-J-Kx(G=-A(K)):NEXT:K-=-0 

IF J-0 THEN PRINT'Elément inconnu":LINE INPUT;A:GOTO 24 

FOR 1-1 TO 4:K=-INSTR(K+1,B(I1),CHR$(J)):ON SGN(K)GOSUB 34 : NEXT : RETURN 

PRINT K;::FOR S-1 TO 4:T-ASC(MID$(B(S) ,K,1)):IF T-J THEN PRINT ACT)+" “ 

NEXT:1-1-1:PRINT.RETURN 

J=-0:INPUT"'Nom d'élément";G:G=-LEFT$(G, 12): RETURN 

Z=1:FOR 1-1 TO 4:GOSUB 38:1F G-""THEN 46 

FOR K=1 TO L:IF A(K)=""THEN J-=K : 

WHILE ACK)-G:J-K:K=L+1:WEND:NEXT:IF J-0 THEN L=L+1:J-L 

A(J)=G:B(I1)-BCI)+CHR$(J):NEXT:GOTO 24 

Z=1:GOSUB 28:INPUT"Numéro du lien à supprimer";K:FOR 1-1 TO 4 

C(I)=MIDS(B(I),K,1):B(ID)=-LEFT$(B(I),K-1)+MID$S(B(I),K+1):NEXT:FOR 1-1 TO 4 

K=0:FOR J=-1 TO 4:K=-K+INSTR(B(J),C(I)):NEXT:IF K-0 THEN ACASC(C(IDD>)>="" 

NEXT :WHILE ACL)-"":L=L-1:WEND:GOTO 24 

A(O)=-STR$S(LEN(B(1))):FOR 1-1 TO 4:LSET H=-B(I):PUT#1,1:NEXT 

KILL F:OPEN"O",#2,F:FOR 1-0 TO L:PRINT#2,A(CI):NEXT 

IF ERR-53 THEN OPEN"O",#2,F:CLOSE#2:RESUME 22 

DATA 1 CARNET 2 AGENDA 3 DINERS 4 FOURRE-TOUT 

DATA LISTE 1 des éléments 2 liens d'un élément RETURN = retour au menu 
LIENS 3 Création 4 Suppression RETURN = Sauvegarde et FIN 
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PROGRAMME PRATIQUE 


des avantages spécifiques du PX-8 page- 
écran virtuelle de 40 lignes de 80 carac- 
tères, disque RAM non volatil et ins- 
tructions d’un Basic poussé. 


Il faudra de toute façon repenser le 


D'un Basic à l’autre 


Certaines instructions du PX-8 n’exis- 
tent pas sur d’autres machines. Par exem- 
ple, pour remplacer une ligne comme : 
100 ON VAL{(INPUT$(1)) GOTO 200, 
300 

on écrira : 

100 A$=INKEYS:IF A$=’’” THEN 
100 

110 IF A$=‘‘1” THEN 200 

120 IF A$=‘‘2” THEN 300... 

De la même façon, l’affichage de tou- 
tes les positions successives de B$ dans 
A$, qui s'écrit en une ligne sur PX-8 : 
100 K=INSTR(K+1,AS$,BS):IF K 

THEN PRINT K:GOTO 100 
peut s’écrire : 
100 FOR I=1 TO LEN(AS) 
110 IF B$ = MIDS(AS,I,LEN(BS)) 
THEN PRINT I 
120 NEXT I 

Enfin, la boucle WHILE...WEND, 
soit : 

100 WHILE < condition > : < instruc- 
tions > : WEND 

peut être remplacée par : 

100 IF < condition > THEN <instruc- 
tions > : GOTO 100 

Les < instructions > entre WHILE et 
WEND (ou entre THEN et GOTO) doi- 
vent pouvoir modifier la < condition > , 
sans quoi on entre dans une boucle sans 
fin. Sices < instructions > comprennent 
l’incrémentation d’une variable, on rem- 
placera aisément WHILE... WEND par 
une boucle FOR...NEXT. 


Duaenou ; 


[où êres vous? 
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problème en fonction de l’architecture 
et du Basic du micro dont on dispose. 
Essayons de faciliter cette tâche en 
« soulevant le capot » et en détaillant 
quelques explications. 


Tout le mécanisme repose sur les 
chaînes B(1) à B(4), contenant chacune 
jusqu’à 255 octets, dont chaque code 
ASCII représente l’indice d’une donnée 
stockée dans le tableau A(i) (A et B sont 
bien des chaînes, voir le DEFSTR en 
tête de programme). Chaque groupe de 
quatre octets de même rang dans les 
chaînes B(1) à B(4) matérialise un 
« lien » entre les données correspondant 
à ces octets. Déjà un premier barrage : 
les chaînes B(i) ne pourront générale- 
ment pas être stockées en séquentiel sans 
risque d’erreur. Elles peuvent être tron- 
quées si elles contiennent le caractère 
« retour chariot », etc. 


Et si l’on 


n'a pas de PX:-8 ? 


C’est une instruction INSTR à trois 
opérandes, INSTR(N,A$,B$), cher- 
chant B$ à partir du énième caractère 
de A$, qui effectue quasi instantané- 
ment les recherches dans ces chaînes. On 
pourrait recourir à des boucles, mais ce 
serait un peu plus lent, et plus difficile. 


Le réaffichage d’une liste de 255 don- 
nées est forcément assez lent. On l’évite 
sur le PX-8 en se limitant aux 240 qu’on 
peut garder en permanence sur les 40 
lignes de l’écran virtuel. La solution à 


DONNÉES 


adopter sur d’autres matériels conser- 
vera sans doute un réaffichage. 


D’autres détails pourront être utiles 
un jour ou l’autre : 
e ON ERROR GOTO), lignes 10 et 60, 
permet de créer ici, très économique- 
ment et sans même s’en apercevoir, un 
fichier qui n’existerait pas encore ; 
e ON ERROR GOTO 0, ligne 22, réta- 
blit la procédure normale ; 
e le nombre et les noms des fichiers 
seront fixés à votre gré en modifiant le 
DATA de la ligne 62. Le programme, 
lui, rebaptise tout bêtement 1, 2, 3, etc. 
les fichiers de données et L1, L2, L3, les 
fichiers de liens correspondants ; 
e un « À » changé en « H », ligne 12, 
suffit pour mettre sur cassette les 
fichiers séquentiels de données. 


Vous trouverez la façon : 
e d'éviter l’affichage des « trous », 
ligne 18 ; 
e de les reboucher par de nouvelles don- 
nées, ligne 42 ; 
. sauf si celles-ci figurent déjà dans la 
liste, ligne 44 ; 
e de supprimer les données qui n’ont 
plus de lien, ligne 52 ; 
. et aussi les trous situés en fin de liste, 
ligne 54. 


Il sera alors possible de tester ce que 
vaut Pêle-Mêle comme débrouilleur 
d’embrouilles : confiez-lui les éléments 
d’une intrigue policière et c’est bien le 
diable si, de rapprochement en rappro- 
chement, il ne fournit pas de quoi con- 
fondre l’assassin plus vite que le génial 
détective des romans. 


Pourvu QUE La 
coHPAanE MAT 
PAS CHIPOTÉ SUR 
JA QUALITÉ Du 
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L est très rare qu'un mot, ou qu'un 
nom, soit forgé de toutes pièces 

ou choisi au hasard, Presque 
toujours, il possède une origine, 
certaines raisons qui l'ont fait 
préférer à d'autres. L'informatique 
n'échappe pas à cette règle et les 
ordinateurs ne s'appellent pas 
n'importe comment. Voici quelques 
exemples variés d’étymologies 


NUMEROS :L1S 


“AMSTRAD 


Ce nom est l’abréviation 
de Alan Michael Sugar TRA- 
Ding corporation. Alan 
Michael n’est autre que le 
fondateur de la société. 

Jusqu’à présent, tous les 
ordinateurs de cette firme 
sont appelés CPC, pour 
Colour Personnal Computer. 
Le premier chiffre 4 du CPC 
464 semble signifier qu’un 
lecteur de cassettes est inté- 
gré, 64 indique que la capa- 
cité de mémoire vive est de 
64 Ko. Le premier 6 du CPC 
664 correspondrait au lecteur 
de disquettes intégré. Le nou- 
vel Amstrad CPC 6128, con- 
firme d’ailleurs cette suppo- 
sition : le CPC 6128 est un 


TS 


5 Si 


LA DÉESSE CANON, 
LA POMME ET LE GUÉPARD 


Colour Personnal Computer 
avec lecteur de disquettes 
intégré et 128 Ko de mémoire 
vive. 


4. 

A l’origine, Jobs, Woz- 
niak et Markkula, les trois 
fondateurs de la firme, ne 
savaient pas quel nom don- 
ner à leur compagnie le jour 
où ils allèrent la faire enregis- 
trer. Comme il mangeait une 
pomme, Jobs suggèra le nom 
d’Apple (pomme, en fran- 
çais), justement. Ce nom 
avait pour lui « d’être sédui- 
sant, de n’être ni menaçant ni 
anonyme comme XYZ, et 
d’être employé à l’école pour 
enseigner aux enfants la pre- 


———------- >< — 
BON DE COMMANDE 


(à retourner à LIST - Service Numéros - 
5, place du Colonel-Fabien - 75491 Paris Cedex 10). 


Nom Prénom 


109' 


| Adresse 


Code Postal L_1_1 | 1! | Ville | 


Je désire recevoir la collection complète des 11 premiers | 
| numéros de LIST au prix de 109F.Jejoinsmonrèglementindis- 

pensable à l'ordre de LIST. 
(Offre valable pour la France métropolitaine). LI 12 | 
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mière lettre de l’alphabet ». 


Le nom de LISA est 
l’abréviation de Local Inte- 
grated Software Architec- 
ture. Le Macintosh est une 
variété de pommes. Ce terme 
était utilisé comme nom de 
code pendant la période de 
conception du matériel, mais 
sonnant bien et l’habitude 
aidant, il fut conservé, 


“CANON 


En 1933, une douzaine 
d'hommes créèrent une 
entreprise qui devait fabri- 
quer, deux ans plus tard, le 
premier appareil de photos 
japonais. Cet appareil fut 
baptisé Kwanon, du nom de 
la déesse bouddhiste de la 
merci, de la grâce accordée. 


Enfin, en 1947, la société 
prendra le nom de Canon 
Camera Co Ltd afin d’adap- 
ter son image de marque au 
caractère international de ses 
activités. 

Côté informatique, le X-07 
n’est autre que le code donné 
lors de la réalisation de pro- 
totypes. Ce n’est qu’au 
moment de son lancement 
que l’on décida de conserver 
ce nom, le X symbolisant les 
facultés scientifiques du 
produit. 


CASIO 


La société Casio a été fon- 
dée par les frères Kashio, 
l’orthographe de leur nom 
ayant été simplifiée pour 
obtenir la raison sociale de la 
firme. L’origine des noms 
des différents modèles n’est 
pas toujours évidente, mais 
on connaît celle des princi- 
paux : 

e SL est mis pour les machi- 
nes solaires (SL = Solar) ; 
e H correspond générale- 
ment à des machines dont la 
taille permet de les tenir dans 
la main (H = Handy) ; 

e les modèles dont le nom 
commence par J sont des 
machines de la taille au- 
dessus (J = Just) ; 

« tous les modèles scientifi- 
ques commencent par FX ; 
e les modèles de poche non 
scientifiques et fonctionnant 
en langage Basic commen- 
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cent par PB (PB= Pocket 
Basic) ; 

e les calculatrices impriman- 
tes de bureau commencent 
par la lettre D (D = Desk). 


GUÉPARD 


La société qui a conçu l’or- 
dinateur Guépard s’appelle 
HBN Electronic. Son nom 
est formé par certaines lettres 
du patronyme de son fonda- 
teur, Jean-Claude HouBroN. 


Le nom du micro- 
ordinateur Guépard a une 
origine liée à la définition 
qu’en donne le Petit 
Larousse : « Animal réputé 
pour son extrême rapidité et 
sa domestication facile ». 


SHARP 


C’est en 1915 que Tokuji 
Hayakawa inventa au Japon 
le premier stylo mine à 
avance mécanique, l’Ever 
Sharp Pencil (littéralement, 
le stylo toujours pointu). Ce 
premier produit donna son 
nom à la société Sharp qui 
diversifia ensuite ses 
productions. 


Quant aux noms des diffé- 
rents ordinateurs, ils corres- 
pondent généralement aux 
initiales de termes techni- 
ques : | 
e PC est fait des initiales de 
Pocket Computer ; 

e EL est mis pour Elsimate 
(« Compagnon LSI », Large 
Scale Integrated) ; 

e ER pour Electronic Cash 
Register ; 

e MZ pour Micro Zilog 
(gamme de micro-ordina- 
teurs) ; 

e SPC: Super Portable 
Computer ; 

e SF: Sharp Fax (Fac 
simile). 


Charles Tandy, fondateur 
du groupe Tandy, racheta la 
société d’électronique Radio 
Shack, il y a une vingtaine 
d’années, d’où Tandy Radio 
Shack, ou TRS. Le premier 
ordinateur conçu par la 
société étant construit autour 
d’un microprocesseur Z80, il 
fut baptisé TRS-80. 


uplication de disquettes 
3/3*/5:° 
Tous formatages 


Duplication express 24H Soft Assistance 


Pz53 
INDE 


109, bureaux de la Colline de St Cloud | 


À partir du 25 Oct. (1) 46.02.40.00 


LATOOEL- 


92210 ST CLOUD 
Actuellement (1) 602.40.00 
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SOLUTIONS 
DES JEUX DE LA PAGE 22 


ES problèmes proposés 


39 


Messages d'erreur 


sPRIDNEHRD = 
LmmO->0rOw 


"40 


Optimisation 


Les deux programmes proposés 

sont équivalents lorsque N1 est 
inférieur ou égal à N2. En revanche, 
lorsque N1 est supérieur à N2, la bou- 
cle de la ligne 10 n’est pas exécutée (sauf 
pour quelques langages, autres que le 
Basic). Dans ce cas, la première version 
n’effectue pas l’initialisation du tableau, 
alors que la seconde le fait systémati- 
quement. Ce qui peut trahir l'intention 
du programmeur. De plus, si la seconde 
version est plus rapide lorsque NI est 
inférieur ou égal à N2, elle est plus lente 
dans le cas contraire. 
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à la page 22 appellent des solutions. 
Voici celles que nous proposons. 


4H 


Trouver des formules 


e Première formule : (B—A) * 
(I MOD 2) + A 
L'opérateur MOD retourne le reste de 
division entière. S’il est absent, l’expres- 
sion devient : (B— A)*(1 —2*ENT(1/2)) 
+ A où ENT(x) est la partie entière de 
Xe 


e Deuxième formule : ((B—A) — 


‘B—A) *(—1))/2 


° Troisième formule : (B—A) * 
ABS(SIN(90*1)) + A, si l’ordinateur 
travaille en degrés. S’il travaille en 


Optimisation : 
deux programmes, deux vitesses 


radians (avec PI=3.141592654), l’ex- 
pression doit être remplacée par : 
(B— A) x ABS(SIN((PI/2)+1)) + A. 
e Quatrième formule : (A—B) * 
ABS(COS(90*1)) + B, si l’ordinateur 
travaille en degrés. De même que pré- 


cédemment, s’il travaille en radians, on 
a : (A—B)*ABS(COS((PI/2)*1)) + B. 
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Les deux plus grands 


Les deux programmes proposés 
donnent un résultat faux si la 
valeur du plus grand élément apparaît 
plus d’une fois dans le tableau : ils don- 
nent la même valeur aux deux éléments 


recherchés. Les corrections à apporter 


sont les suivantes : 

e dans le premier programme, la ligne 
70 doit être remplacée par : 

70 IF T(M2)<T(I) AND MIi< >I 
THEN M2=I 

< dans le second programme, c’est la 
ligne 40 qui doit être remplacée par : 
40 IF T(MI)<T(I) THEN Mi=l: 
GOTO 60 


43 


Langages 


1. APL : À Programming Lan- 
guage (un langage de programma- 

tion, ‘‘un de plus””, en opposition avec 
PL/1) 

2. Basic : Beginner’s All Purpose 
Symbolic Instruction Code 

3. Cobol: COmmon Business 
Oriented Language 

4. Fortran : FORmula TRANSslation 

5. GAP : Générateur Automatique 
de Programmes (nom français du RPG, 
Report Program Generator) 

6. Lisp : LISt Processor 

7. LSE : Langage Symbolique 
d'Enseignement 

8. Pascal : il ne s’agit pas d’une abré- 
viation, mais du nom de Blaise Pascal. 

9. PL/1 : Programming Language 1 
(LE langage de programmation numéro 
1, à opposer à APL) 

10. Prolog : PROgramming in 
LOGic 


N° 12 - SEPTEMBRE/OCTOBRE 85 


Pour TANT, JE 
L'Ai SUR LE 
Bour PE ft 
Dis QUÊTTE 


- ORDINATEUR VicTiME P'UN 
TRou DE MEMOIRE 


Tous les sens 


Le langage L considère l’instruc- 

tion A = B =0 comme une affecta- 
tion en chaîne exécutée à partir de la 
droite. Dans un premier temps, la valeur 
0 est mémorisée dans B, puis dans A. 
C’est pourquoi cette dernière contient 
0 avec le langage L. Ce pourrait être, 
par exemple, certains rares Basic. 


Le langage M considère cette instruc- 
tion comme une affectation de variable 
logique. Dans un premier temps, c’est 
l’expression (B = 0) qui est évaluée. Si 
elle est vraie, la valeur 1 est stockée dans 
A (selon les ordinateurs, ce peut être une 
autre valeur). Le langage Pascal fonc- 
tionne de cette façon, à la différence que 
l'instruction s'écrit : ‘‘A:=B=0". 


ATTENTION C'est À 


ENCORE UN 


DE DETRUT ! 


MASSACRE !! 


VAÏSSEAU ENNEMX 


Le langage N fonctionne comme le 
langage L mais en partant de la gauche. 
En partant d’une valeur de B égale à 2, 
la première partie de l'instruction 
(A=B) impute la valeur 2 à A. La 
seconde partie de cette instruction 
(B=0) remet la variable B à zéro. Il 
existe toutefois peu de langages fonc- 
tionnant de cette façon. 
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Racine numérique 


pe) La plus courte fonction capable 
de donner la racine numérique 
d’un nombre est : 
RN(N)=N MOD 9 
où l’opérateur MOD (modulo) retourne 
le reste de la division entière de N par 
9. En Basic, cette fonction peut 
s’écrire : : 
DEFFN RN(N)=N —9*INT(N/9) 
En Pascal, elle se déclare ainsi : 
function racinum (n : integer) : integer; 
begin 

racinum:=n mod 9 
end; 


FiNALEMENT ÎE NE TROUVE. PAS TON 
JEU SUPER. D'AILLEURS DE N'Y Ai 


Cette formule qui donne le reste de 
la division par 9, est utilisée dans ce que 
l’on appelait la ‘‘preuve par neuf’’ à 
l’école primaire. 


Rapports ambigus 


Le libellé de l’erreur est de la 

forme : ‘‘floating point over- 
flow”, c’est-à-dire ‘‘dépassement de 
capacité en réel”. Des valeurs suffisam- 
ment grandes de À, B, C ou D déclen- 
chent l’erreur. C’est le cas, par exem- 
ple, avec un ordinateur dont la capacité 
pour les nombres réels atteint 9.9E99 et 
des valeurs de À, B, C ou D comme : 
A=1.0ES1, B=1.0E52, C=1.0E48, 
D = 1.0E49,. 


Les calculs de A/B et C/D s’effec- 
tuent sans problème, puisque dans les 
deux cas on obtient 1.0E—1. Mais, 
A+D et C+B donnent 1.0E100 qui 
dépasse la capacité de l’ordinateur. 
D'où le message d’erreur. 
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Les surprises du calendrier 


En prenant OCT comme abrévia- 
tion de ‘‘octal”’ et DEC pour 
‘“décimal””, on a : 
31 OCT =31:;=(3*8 + 1)10 = 2510 = 
25 DEC 
(D’après une nouvelle d’Isaac Asi- 
mov, ‘‘Un cas étrange de fraude fis- 
cale” — À curious case of income tax.) 


PAS CAD UNE SECONDE ‘ 
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